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version française : 


LOISITECH 


Tél. : (1) 48 59 12 57 


Quand Amstrad a voulu améliorer 
le PCW, il a acheté LOCOSCRIPT 2 


Améliorez votre 
PCW 8256/8512 : 
achetez Locoscript 2. 


Locoscript 2 actuellement 
fourni sur le PCW 9512 

est également disponible pour 
le 8256 et le 8512. 


Locoscript 2 (disquette + manuel 
300 pages) ne coûte que 350 F.; 
Locomail 445 F. Le kit Locoscript 
+ Locomail : 695 F!. 


Prochainement sortie des disquettes 
utilitaires : 

Jeu de claviers étrangers 

Utilitaire de configuration 
d'imprimante. 

Locospell : dictionnaire français 
correcteur d'orthographe 

Pour tous renseignements : 

Appelez LOISITECH 

(1) 48 59 12 57 


LOCOMAIL, le complément de LOCO 2, 
un programme de mailing puissant 
et très simple d'emploi. 


PRENOM 
ADRESSE 


Port en sus : Logiciels 25 F 
Matériel 50 F 


LocoScript 2 de 
LOCOMOTIVE SYSTEMS 


LOCOSCRIPT 2 vous offre en plus : 

- des mouvements plus rapides à 
l'intérieur d'un document 

- un accès direct à n'importe quelle 


page 
- sauvegarde et continue à la même 


position 

- possibilité de choisir votre imprimante 
(marguerite ou matricielle) 

- impression de haute qualité avec la 
marguerite 

- nouveaux caractères (y compris le 
Cyrillique et le Grec) 

- les symboles scientifiques 

- utilisation d'accents avec toutes les 
lettres 

- impressions multiples 

- copies, formatage des disquettes 
directement sous locoscript 

- fonctions ‘‘’recherche et remplacement 
plus rapides et puissantes 

- Avec Loscoscript 2 vous pourrez lire 
vos anciens documents faits sous 
Locoscript 1 
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CP/M PRATIQUE 


INITIAT 


Le système d'exploitation, clef de voûte de notre 
ordinateur, gère et organise les indispensables fichiers 
que nous ne manquons pas de rencontrer au fil de notre 
aventure informatique. Ce mois-ci, et dans l'esprit qui 
caractérise cette série, nous allons découvrir un aspect 
mystérieux et particulièrement attrayant d'un programme 
que nombre d’entre nous négligent, à tort, tant son 
pouvoir est grand. J'ai nommé SET.COM. 


Protéger disquettes ou fichiers des regards indiscrets, 
voire même les rendre indestructibles face aux erreurs de 
manipulations ou encore soustraire du directory des 
programmes qui restent tout de même accessibles au 
premier utilisateur venu, sont quelques-unes de 





découvrir sans plus attendre... 


IN ON RO ONE ETES) ER 


Pour comprendre et jouer de SET.COM, nous 
N: allons tester, main dans la main et progres- 

NY sivement, les fonctions les plus significatives ou, 
4 tout au moins, celles que nous aurons 
probablement l'occasion d'utiliser régulièrement 
au terme de notre rencontre. 


Tout d’abord, nous allons destiner une face de 
disquette vierge au seul profit des essais qui 
vont suivre en la formatant en A {lecteur du 
haut). Ceci fait, nous allons recopier tous les 
programmes dont nous allons avoir l’usage au 
cours de cet article. 


Certains proviennent de la face 2 des disquettes 
système livrées avec notre PCW, alors que 
d’autres proviennent de la face 4. Pour éviter 
toute fausse manipulation, je vous conseille de 
r3 me suivre pas à pas en effectuant chacune des 





U CP/M 


PAR MARC HERMION 





procédures que je vais indiquer. Je tiens à 
préciser que les heureux propriétaires d'un PCW 
9512 ne sont pas concernés par mon 
commentaire sur la répartition des programmes 
utiles puisqu'ils les ont tous sur une seule et 
même disquette appelée CP/M PLUS. De la 
même facon, ils ne tiendront pas compte des 
mentions relatives au changement de disquettes 
système dans la préparation de la disquette 
d'essai. 






DIN ON: 





Comme de bien entendu, toutes nos petites 
expériences vont se dérouler sous CP/M ce qui 
implique que nous le chargions en insérant la 
disquette face 2 dans le PCW après allumage 
{ou disquette CP/M PLUS pour les 9512). 


A l'affichage de A, notre CP/M est prêt et 
nous pouvons commencer : 


Quelque soit le PCW utilisé, nous procédons 
impérativement à un formatage de disquette 
vierge en À : à l’aide du programme DISCKIT 
ou autre (LOCOSCRIPT 2 ou HERAKLIOS). 


Ceci fait, insérons la disquette système face 2 et 
tapons : 









| in l 





A l'apparition de l'étoile ‘*” transférons les 
fichiers utiles par : 








CP/M PRATIQUE + L'ECHO DU PCW N°16 












Remplacons la face 2 par la face 3 (l’autre 
disquette ne concerne que les PCW 8256 et 
8512) et tapons : 






Toujours sous le contrôle de PIP [étoile à 
l'écran), nous introduisons maintenant la 
disquette vierge que nous avons préalablement 


formatée et tapons : 


os 
Ov 
EH 


mis en M: 
passent alors sur 
notre disquette 
test placée en A: 
et la pression de 
<RETURN> seule 
renvoie à A> 
pour le début de 
nos expériences 


diaboliques… 


SRRÉSSSÉÉSSÉEST 


Le 


SÉSES 


Notons que si 
tout s’est bien 
passé dans cette 
première phase, 
nous devrions 
avoir à l'écran le 
contenu de la 
figure 1. 


Le 
“4 





Figure 1 


PREMIER MYSTERE : 





Les fichiers SYS sont probablement les fichiers 
les plus connus des habitués du CP/M PLUS. Un 
petit rappel n’en demeure pas moins utile : les 
fichiers visualisés par l'instruction : DIR <RETURN> 
sont appelés des fichiers DIRectory parce qu'ils 
sont visibles par tout le monde sur un simple 
appel de l'instruction DIR. 


Pour les rendre un peu moins visibles, donc plus 
discrets, CP/M prévoit la possibilité de les 
mettre en SYS ou SYStème. 


C'est SET.COM qui le permet et nous allons 
immédiatement le vérifier : 


Mettons 





Tapons DIR <RETURN> et regardons : le fichier 
PIP.COM a disparu et le message ‘'SYSTEM 
FILE(S) EXIST'’ nous confirme qu'au moins un 
fichier est en système. Rien de confidentiel à tout 
cela puisque CP/M offre une instruction pour voir 
les programmes en SYS par DIRS <RETURN> 
qui, dans notre cas, va afficher PIP.COM et le 
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Tous les fichiers 


(LU TN Le: 


message ‘'NON-SYSTEM FILE(S) EXIST'’ qui, 
inversement au message précédent, nous 
rappelle que des fichiers en DIR sont présents. 


mes 
| FICHIERS SYS ET BASIC 


I 
| A L'inverse du CP/M, le BASIC ne fait aucune I 
distinction entre les fichiers SYS et DIR dans | 
I l'affichage du directory. L'aspect confidentiel Î 
l'est donc à exclure dans le cas de ce langage. 
















9 
A>SET PIP.COM°SYS$ 
A:PIP CM set to systen (SYS), Read Write (RW) 









A: RENNE : DUMP CON: DATE COM : IN 
SYSTEN FILE(S) EXIST 


A)DIRS 

A: PIP CON 
NON-SYSTEN FILE(S) EXIST 
A>USER 4 





4A)PDP 
CP 3 PIP VERSION 3.0 


4A)USER @ 

A>SET PIP.COM°DIRS 
A:PIP COM set to directory (DIR), Read Write (RW) 
PPT COM : TOT0 ASC : IYPE 
A: RENAMT CON : DUMP CON : DATE 
ii 





COM : BASIC CON : 
COM : INITDIR COM : 





1. Changeons de zone USER par USER 4 
<RETURN> et refaisons DIR et DIRS. Nous 
constatons avec le message ‘’NO FILE’ que 
PIP.COM est absent du groupe, pourtant si 


nous tapons : PIP <RETURN”, il s'exécute 
comme s’il était présent. 


2. Cette première expérience réalisée avec 
succès, remettons notre fichier PIP.COM dans 
son état initial afin de pouvoir poursuivre notre 
exposé. 


Revenons en A: par USER O0 <RETURN> et 
remettons PIP.COM en DIR par : 





vérifions par DIR <RETURN> que PIP.COM est 
bien revenu. Il l’est. Continuons. 


SECOND MYSTERE : LES FICHIERS 





Dans la maîtrise des fichiers (n'oubliez pas que 
j'entends par fichiers tout ce qui se trouve sur 
une disquette et que le même terme s'applique 
aux programmes et aux fichiers issus d’un 
quelconque programme comme DBASE; BASIC 





Figure 2 






Figure 3 


(AURA TN el: 
































ou MULTIPLAN), la possibilité de protéger un 
fichier contre l'écriture intempestive n'est pas à 
négliger. C'est une précaution qui peut s'avérer 
particulièrement utile dans la conservation d’un 
fichier que nous voudrions conserver sans 
qu'aucune modification puisse en faire l’objet. 


1. Créons un fichier ASCII avec PIP en utilisant 
notre disquette test, tapons : 

PIP TOTO.ASC = CON: <RETURN> qui nous 
permet d'entrer un texte quelconque dans le 


fichier TOTO.ASC. 


Tapons : 

J'AI FDU BON TABAC DANS MA TABATIERE <RETURN><ALT J><ALT Z> 
ceci fait, nous revenons sous CP/M et nous 
vérifions le contenu de TOTO.ASC par : 

TYPE TOTO.ASC <RETURN> 


Il doit être identique à ce que nous venons de 
taper. S'il ne l’est pas tout à fait, ce n’est pas 
grave, l'important étant qu’il contienne tout de 
même un peu de texte pour nous permettre de 
continuer notre expérience. 

2. Mettons le fichier en READ ONLY (qui 
signifie exactement LECTURE SEULE) par : 

SET TOTO.ASC °RO& <RETURN> 

3. Si nous refaisons TYPE TOTO.ASC <RETURN> 
nous constatons que le contenu de TOTO.ASC 
est toujours accessible à l'écran donc en lecture. 
4. Tentons de modifier le contenu de TOTO.ASC 
par l'ajout de texte avec PIP.COM par : 





Tapons l'ajout : 


TU N'EN AURAS PAS <RETURN><ALT J><ALT Z> 


Et voyons ce qui se passe... Visiblement 
TOTO.ASC n’a pas apprécié notre avarice 
puisqu'il refuse de mémoriser le texte sans une 
confirmation formelle de notre part. Si nous 
entérinons par Ÿ <RETURN>, le fichier 
précédent est remplacé, sinon le contenu est 
préservé. Nous vérifions alors que l'attribut RO 
n'est pas incontournable sous CP/M mais qu'il 
reste un garde-fou contre les accès erronés. 


A>PIP TOTO.ASC=CON: 
J'AI DU BON TABAC DANS MA TABATIERE 


A>SET TOTO.ASC °ROS 
À: 1010 ASC set to directory (DIR), Read Only (RO) 


A>PIP TOTO .ASC=TOTO. ASC, CON: 
TU N'EN AURAS PAS 


DESTINATION 15 R/0, DELETE (Y/N)? N 
#HNOT DELETED## 





ATYPE TOTO,ASC 
J'AI DU BON TABAC DANS MA TABATIERE 


A>SET TOTO .ASC°RNS 
À:TOTO ASC set to directory (DIR), Read Hrite (Rd) 


A>PIP TOTO ASC: His ASC, CON: 
TU N'EN AURAS PAS 


EH TOTO.ASC 
“AI DU BON TABRC DANS MA TABATIERE 
tu N'EN AURAS PAS 


CPI | 






















De la même facon, nous pouvons essayer d'effacer 
TOTO.ASC à l’aide du programme ERASE.COM 
en tapant : ERA TOTO.ASC <RETURN> 
Résultat consternant, ERASE refuse d'effacer pour 
nous démontrer, une fois encore, l'efficacité 


de l’attribut RO. 


5. Remettons TOTO.ASC en RW (READ/WRITE 
pour LECTURE et ECRITURE permises) par : 
SET TOTO.ASC °RW& <RETURN> et retentons 
l'ajout décrit en 4... Tout fonctionne sans demande 
de confirmation. 


É 
| FICHIERS RO ET BASIC Il 
1 Tout fichier BASIC mis en RO refuse de participer à une | 
| quelconque opération de modification et, ce, d'une | 
fl façon suffisamment violente pour que nous le sachions fl 
nl (voir figure 4). 
y !-Lançons le “BASIC par BASIC <RETURN> 
nl 2. Tapons un petit programme comme : 
I 10 REM CECI EST UN ESSAI <RETURN> 

3. Sauvons le par SAVE ‘‘ESSAI’”’ <RETURN> 
I 4. Retournons sous CP/M par SYSTEM <RETURN> 
1 5. Mettons ESSAI.BAS en RO par 
(| SET ESSAI.BAS °ROS <RETURN> 
1 6. Relançons le BASIC par BASIC “RETURN> 
1 7. Chargeons ESSAI.BAS par 
I LOAD ‘‘ESSAI'’ “RETURN 
I 8. Vérifions par LIST <RETURN> 
I 9. Ajoutons une ligne par 

20 REM CECI EST ENCORE UN ESSAI “RETURN> 

<RETURN> 


10. Sauvons par SAVE ‘‘ESSAI'’ 
et. catastrophe ! 










ABASIC 
Nallard- . Pt with Jetsan Version 1,29 
{el Cop LL Locomotive Software Ltd 
All ri hr En 


31597 free bytes 
































sr 
© REIN CECI EST UN ESSAI 
QUE “ESSAI .BAS 


SYSTEM 
A)SET ESSAI BAS°ROS 
A:ESSAI BAS set to directory (DIR), Read Only (RO) 
A)BASIC 
Nallard-89 BASIC with Jetsan Version 1.29 
(c) Copyright 1984 Loconotive Software Ltd 
All rights reserved 

31597 free bytes 
0k 


LOAD "ESSAI 


20 REM CECI EST ENCORE UN ESSAI 
SAVE "ESSAI 


On À: Read/Only File 
HS ee = {9 File = - ESSAI BAS 























































Figure 4 
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| CP/M PRATIQUE 





TROISIEME MYSTERE : 


Parmi les étonnantes fonctionnalités que nous 
offre le CP/M PLUS, l'intervention de la date 
dans l’utilisation d’un fichier est l’une des plus 
notoires. 





CP/M permet de connaître avec exactitude et 
suivant certaines conditions DATE et HEURE 
d'opération sur les fichiers, telles que : 


CREATION - UTILISATION et MODIFICATION 


Outre l'information utile que cela procure dans 
le suivi de l’utilisation de certaines applications 
(gestion, fichiers, etc...), cela procure un moyen 
infaillible de connaître, à l'insu de ses utilisateurs 
habituels, si un fichier ou un programme a été 
utilisé, consulté et même modifié. 


Sans vouloir jouer à l'apprenti espion, 
remarquons que ce type d’information peut tout 
de même revêtir une grande importance et 
l'exemple suivant en convaincra les plus 
sceptiques : 


Un fichier dont l’entreprise X conserve plusieurs 
exemplaires qui sont constamment mis à jour, 
précaution aidant, l’employée de saisie fait 
tellement de copies de sécurité qu’elle finit par 
ne plus savoir quelle est la dernière version ! 


Comment aurait-elle pu se sortir d’une telle 
impasse qui lui vaudra peut-être les compliments 
de la porte & 


En ayant fait ce que nous allons maintenant 
expérimenter. 


DATE ET FICHIERS... 


Un directory normalement constitué ne donne 
aucune information relative à une date 
quelconque. Pour ce faire, il faut préalablement 
recourir à Un programme spécifique qui se 
charge de le réorganiser. Ce programme CP/M 
est INITDIR.COM et nous l'avons mis sur notre 
disquette test lors de la préparation de celle-ci. 


Lancons 
INITDIR.COM par INITDIR <RETURN> 


Il nous demande alors le lecteur concerné par 
l'opération qui, en l'occurence, est le lecteur A: 
que nous indiquons par A: <RETURN>. 


À ce stade, INITDIR demande confirmation de 
notre intention qui, n'ayant pas changée depuis 
les lignes qui précèdent, se traduit par l'entrée 


de Y <RETURN>. 


Quelques secondes de travail, le directory est 
réorganisé par le fait qu'il a réservé de la place 
pour mémoriser DATES et HEURES. À ce stade 
pourtant, elles ne sont pas encore accessibles 
sans que nous ayons lancé la procédure qui met 
tout le processus en branle : 
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1 L'INSTRUCTION SET °PROTECT=ONS 


I Cette instruction est certainement la plus 
l'importante dans l’utilisation de SET.COM 

I puisqu'elle autorise non seulement 

Ù l'intervention du temps dans la gestion des 
I fichiers mais aussi la protection, par mot de 
Û passe, de la disquette et la protection 

I individuelle des fichiers. 


Tout est maintenant prêt à l’exception de la date 
et de l'heure qui méritent d’être mises à jour. 


Pour ce faire tapons : DATE SET <RETURN> qui 
ordonne au programme DATE.COM de notre 
disquette essai de mettre date et heure à jour. 


Dar Rob ss drive, 


Enter Drive: À: 


INITDIR NILL ACTIVATE TIME STAMPS FOR SPECIFIED DRIVE. 
Do you want to re-forsat the directory on drive: À (Y/N)2 Y 


A>SET °PROTECT-ONS 
Label for drive À: 


Passads $ Stanp  Sta 
R A 


Directory 
Labe eqd Create Access 


ADDATE SET 
Enter eg AA s ie CRAN: — 
ire 


Enter the 12:45:00 
Press any key 4 ira de 


ADATE 
à 01/24/88 12:45:06 





Entrons alors MOIS JOUR 
ET ANNEE sous la forme 
MM/JJ/AA 


ae : 


Entrons ensuite l’heure sous 


la forme HH:MM:SS 


exemple : 


À compter de la mise à jour, l'horloge interne 
du PCW va gérer heure et date avec une 
régularité digne d’un horloger helvète. Vérifions- 
le par : DATE <RETURN> et nous constatons 
que non seulement le temps écoulé depuis la 
mise à jour est bien comptabilisé mais que, de 
plus, le jour de la semaine est indiqué (en 
anglais, il est vrai, mais nul n’est parfait….). 





Maintenant que tout a été fait pour une gestion 
efficace du temps, voyons les possibilités qui 
nous sont offertes. 


CP/M PRATIQUE 
















Le CP/M autorise trois gestions de date et 
d'heure pour l'accès aux fichiers : CREATION - 
MODIFICATION OU UTILISATION. 


Malheureusement, il impose un choix quant aux 
possibilités puisqu'il n'autorise que cinq 
combinaisons : 


Maintenant que nous savons tout, il ne nous 
reste plus qu'à le mettre en pratique... 


Nous choisirons de gérer l'accès et les modlifi- 
cations effectuées. 


Tapons : 


S'affiche alors l’état des attributs sous forme d’un 
tableau dont le détail est expliqué en figure 7. 


Si nous utilisons DIR pour connaître l’état de 
notre directory par : 


nous découvrons alors le tableau de la figure 6 
qui devient limpide à ce stade de l’entrevue. 


9 
A>SET °UPDATE-ON ACCESS=ONS 


Label for 
Directory 
Label 


drive À: 


Passwds S 


$ $ 
Reqd Create Frs À Wale 


A>DIR °FULLS 
Scanning Directory... 


Sorting Directory... 


Directory 
Nane 


Les 
# 


wi | L-1-1 
DEaS 
A 


SSSss 


For Drive À: 
Bytes 


Recs  Attributes Prot 


01/24/88 12:58 


S2SS5e 





Figure 6 


s 846 Files Found = {2 
Dir Entries For Drive À: 19 64 


Premier constat : Le fichier ESSAI.BAS, protégé 
en lecture par le détail des manipulations déjà 
étudiées plus haut, est bien signalé par RO alors 
que tous les autres sont toujours en RW. 





modification 
} 








Label for drive A: Mise en service du PROTECT 
} 





Directory Passwds  Stamp Stamp  Stamp 
Label Reqed Create Access Udpate 
A:LABEL. on off on on 
t t t 1 

nom de la disquette Utilisation 

(par défaut LABEL) 
Lecteur concerné Création Figure 7 


Second constat : Le directory indique avec 
précision la date et l’heure de l’utilisation que 
nous venons de faire de DIR.COM quand nous 
avons fait le DIR °FULL& qui permet justement 
d'obtenir le détail de la disquette. 


Tentons maintenant une suprême modification du 


fichier TOTO.ASC par : 





Tapons : 


et constatons l'ampleur des dégâts par : 


DIR °FULL& <RETURN> 
Le résultat est évident : 


TOTO.ASC venant d’être utilisé et, par la même 
occasion, modifié, le directory nous l'indique 
avec précision. Cette modification ayant 
demandé l’utilisation de PIP.COM, pour se 
faire, le directory, une fois encore, moucharde 
efficacement. C'est pas beau ça ? 





Maintenant nous allons terminer sur la désacti- 
vation des témoins d'accès qui se fait par la 
même procédure que pour l'activation à la seule 
condition que OFF soit mis en lieu et place de 
ON. Désactivons le témoin d'utilisation par : 


le tour est joué, une fois encore nous avons 
prouvé au monde admiratif que notre PCW 
n'était pas la moitié d’un c.. ce qui ne manquera 
pas d’être encore plus flagrant le mois pochain 
quand nous verrons avec quel sadisme il protège 
les fichiers... Amusez-vous bien. 





A)PIP TOTO.ASC=CON: , TOTO .ASC 
REFRAIN 


#)DIR °FULLS 

Scanning Directory... 

Sorting Directory... 
Directory For Drive A: User 0 
Recs Attributes Prot Access 


Bytes Update 


01/24/88 13:11 


ÉEPÉE 


es : 
F4 
ereseSterse 


01/24/88 13:10 


01/24/88 13:10 01/24/88 13:10 


ESC 


lotal Bytes 11ik Total Records = 
Total 1k Blocks = 111 


846 Files Found = 12 
Used/Nax Dir Entries For Drive A: 20/ 64 


ATYPE TOTO.ASC 
RETRA 


J'AI DU BON TABAC DANS MA TABATIERE 
1. N'EN N'AURAS PAS 


Figure 8 
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PROGRAMMATION BASIC 


NAT NE Te) 21" 





CLAVIER 





#6 CLAVIER - Le complément de SETKEYS.CON - par Olivier LE BIHAN - 1987 ##x 


STP & 
TAB A 
L&X Q 
SKF X 


ALT EXT (+) 


en n 


*X 








ee tm 


ais avant de pouvoir se simplifier la vie avec ce 
programme, il faut d’abord un peu de courage 
pour taper le listing publié de l'ECHO, ov bien 
il vous faut acheter la disquette de ce mois-ci. 


Le programme est bien en mémoire et sans faute 
(grâce au génial vérificateur B12+),tapez alors 
le fameux mot clé :j'ai nommé RUN, car c'est le 
BASIC qui se charge d'exécuter le programme. 





MOC OS & ! Oo à ) - 1e (DL CAN CUT CPY PST 
R OT YOU I O0 P +? +* RE F7 7 8 3 
F G H J X L N Où 4 5 4 5 6 
VOBON , 5 : = $ SW F3 1 8 3 
ESPACE (-) PTR XI F1 0 . EN 





Figure 1 


Si le programme ne comporte pas de fautes de 
frappes, un splendide écran tel que celui de la 
figure 1 apparaît. Il se divise en 2 parties : la 
partie du haut comportant le titre du programme 
encadré ne s’efface jamais, à moins que vous ne 
quittiez le programme. La partie du bas par 
opposition, s’efface {lorsque l’on demande de 
voir les redéfinitions par exemple). 

C'est bien le clavier du PCW qui se dessine à 
l'écran. J'avoue qu'il n’a pas le superbe 
graphisme du grandiose AZERTY mais toutes les 


Par Olivier LE BIHAN 


Voici le programme que vous 
attendiez tous | Le complé- 
ment de SETKEYS.COM 
s'appelle CLAVIER et |! a été 
programmé pour simplifier la 
redéfinition du clavier en 
générant automatiquement 
des fichiers immédiatement 
utilisables sous CP/M... 


touches sont représentées selon une disposition 
similaire à celle du clavier du PCW (les 
utilisateurs de PCW 9512 doivent faire un petit 
effort, soit en modifiant le programme, soit en 
retrouvant les correspondances). Certaines 
touches sont représentées en abrégé de 3 lettres 
maximum (sauf <ESPACE>) mais vous n'aurez 
aucun mal à les reconnaître. La seule confusion 
qui puisse être faite concerne la touche EXTRA 
(abrégée EXT) et EXIT (abregée EXI). Après ce 
commentaire sur le ler écran, passons au détail 
des messages qui apparaissent en haut de 
l'écran : 

<TAB> pour voir les redéfinitions : Vous pouvez à 
n'importe quel instant (hormis pendant la 
redéfinition d’une touche) voir l’ensemble de vos 
redéfinitions en pressant cette touche. L'écran 
s'efface partiellement et affiche, dans l’ordre où 
elles ont été entrées, les redéfinitions (figure 2). 
Leur défilement se contrôle en appuyant sur une 
touche. Les messages ‘Début des redéfinitions” et 
‘“‘Fin des redéfinitions’”’ délimitent les redéfinitions 
et, à l'apparition de ce message, le programme 
attend que vous tapiez une touche pour revenir au 
1e écran. 








58 NS À SA *t'#00"" DDELE PS CHER: 
M Se UNS CONMANLE DU CURSEUR 
mil “1515161616ne Figure 2 


10 E SA "tr" SSION D'UNE LIGNE 
dues SA “t"482"" INSERTION D'UNE LICNE 


TN Mgggre EN DBASE DANS LE TEXTE 
883 "DISPLAY STRUCTURE TN" 





<F1> pour sauvegarder : Vous pouvez à tout 
moment sauvegarder l’ensemble de vos 
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NIVEAU MOTEN TS 2 








redéfinitions dans un fichier. Le programme 
demande alors en haut à gauche de l'écran (sans 
effacer le dessin du clavier) l'entrée d’un nom de 
fichier. Si vous entrez une chaîne vide, le 
programme retourne au 1°’ écran. Sinon, 
l’ensemble des redéfinitions s’acheminent vers le 
fichier. Cependant, le programme peut vous 
forcer à faire une sauvegarde lorsque 200 
redéfinitions ont été entrées. Dans ce cas, le 
programme refusera une chaîne vide pour nom de 
fichier et, une fois la sauvegarde effectuée, le 
programme redémarre en vidant l’espace de 
travail. Notez que cette procédure n’a jamais lieu 
lorsque la sauvegarde est volontaire (moins de 200 
redéfinitions en mémoire). Enfin, le résultat de la 
sauvegarde est un fichier ASCII décryptable par 
SETKEYS.COM. 


<F3> pour imprimer : C’est la sortie imprimante 
du programme. Après avoir appuyé sur cette 
touche, le programme vous demande confirmation 
(une touche différente de <O> ramène au menu 
principal). Si l'imprimante est prête à imprimer 
alors l’ensemble de vos redéfinitions s’inscriront 
sur le papier en caractères PICA. Notez que 
l'impression n’efface aucunement les redéfinitions 
inscrites en mémoire. 


Passons maintenant à la description de la ligne 
du bas de l’écran que j’appellerai ‘’ligne d'état’. 


Une pression sur <ESPACE> et le ‘’curseur'' - 
c'est-à-dire la zone en vidéo inverse qui 
recouvre une des touches dessinée à l'écran - se 
déplace d’une touche vers la droite. Le curseur 
ne se déplace que dans ce sens et lorsqu'il 
arrive à la fin d’une ‘‘ligne’” il se déplace à la 
ligne suivante, à la première rangée (comme 
notre bon vieux curseur). Lorsqu'il arrive sur la 
touche ENT (ENTER), il revient sur la touche STP 
(STOP). 


ts 

















0 


EE | 
Une pression sur <RETURN> (ou <ENTER>) dit 
au programme que la touche en vidéo inverse 
va être redéfinie. La ligne d’état affiche alors la 
touche validée (figure 2) et propose d’annuler la 
validation précédente pour retourner au ler 
écran. 





Pour redéfinir, tapez une touche différente de 
<CAN2. Le programme vous demande alors 
d'entrer la redéfinition, c’est-à-dire son texte 
(qui ne peut pas être une chaîne vide). Notez 
que le trait qui suit la question indique la 
longueur maximale de la réponse. 


Puis le programme demande l'entrée des touches 
de contrôle en abrégé (S pour SHIFT, E pour 
EXTRA, A pour ALT, SA pour SHIFT + ALT, N 
pour None). Vous pouvez entrer une chaîne 
vide, pour dire au programme que cette touche 
n'aura pas besoin d’une touche de contrôle pour 
générer le texte choisi. Les touches de contrôle 
peuvent être entrées dans le désordre, mais 
plusieurs touches de contrôle doivent être 
séparées par un espace (sinon SETKEYS ne 
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pourra pas les décoder). Notez que si la chaîne 
entrée dépasse 10 caractères, ou est 
incohérente, le programme la refuse et repose la 
même question. 


Enfin, arrive le moment d'inscrire un 
commentaire, facultatif d’ailleurs, utile lorsque 
l’on veut éditer le fichier. (les commentaires ne 
sont pas convertis en majuscule). 






Exemple de redéfinition : 










touche validée : <D> 

texte de la redéfinition : DUPONT 

touches de contrôle : SE 

commentaire : DUPONT généré par 












Cette redéfinition donnera, après avoir utilisé 
SETKEYS, le mot DUPONT en pressant 
<SHIFT>+<D> ou <EXTRA> +<D>. 


Notez que le programme refuse deux 
redéfinitions absolument identiques. 


Attention ! pendant ce temps, les touches du 
clavier gardent leur valeur par défaut (à moins 
d'avoir utilisé SETKEYS avant ce programme). 
Pour que le clavier obéisse à votre fichier de 
redéfinition, il faut sortir du programme par 
<EXIT> et <O> (à partir du 1°" écran), puis 
retourner sous CP/M+ en tapant (sous BASIC) 
SYSTEM. après avoir mis la disquette contenant 
SETKEYS.COM dans le lecteur par défaut, 
tapez SETKEYS ‘’nom de fichier'". Et là, ô 


miracle, le clavier a compris... 


Passons maintenant aux cas extrêmes et 
annonçons en quelques chiffres les possibilités de 


CLAVIER.MAKER : 


Le nombre maximum de redéfinitions est 200. Si 
le nombre de redéfinitions atteind ce maximum, 
le programme vous mène à la sauvegarde puis 
libère l’espace de travail de toutes les 
redéfinitions. 


—————————————————————() 


LE CLUB ECHO 
C'EST L’AFFAIRE DU SIECLE ! 


N’OUBLIEZ PLUS LE CLUB... 
ET TOUS SES AVANTAGES... 


ENT © 
= 


MR EOGART NE HUM PHRE Y 
MCE 5 1/02/1989 ONUANE 6 74894 


SIGNATURE 


Cette cañe strictement personnelle 
donne droit a toutes les achvites du club 


XXX 


<SHIFT>+<D> ou <EXTRA> +<D> 





PROGRAMMATION BASIC 


Le programme considère les textes de redéfi- 
nition tels //M //A comme un seul caractère, et 
donc il n’emploie pas de code intermédiaire. 
Autrement, tout texte de redéfinition dont le 1°" 
caractère n’est pas ‘‘//"" et dont la longueur est 
au moins de 2 caractères, est considéré comme 
une phrase {donc le programme emploie un 
code intermédiaire). 


Au total, 27 phrases peuvent être mémorisées 
dans un fichier de redéfinition. Quand cette 
limite est atteinte, le programme le signale dans 
la ligne d'état, mais ne conduit pas à la 
sauvegarde ‘‘forcée’’. 


Si jamais une erreur se produit (Hélas ! cela 
arrive...) le programme le signale par un 
message du type ‘ERREUR N° a,LIGNE b'' et 
attend alors une entrée au clavier. Si vous 
pressez la touche <STOP>, alors le programme 
s'arrête, sinon il continue à fonctionner. 


Voilà, je pense ne rien avoir oublié dans la 
description de CLAVIER et je crois que ce 
programme vous sera très utile pour redéfinir 
votre clavier sans embrouille. 


Alors faites craquer vos doigts, je veux pouvoir 
vous entendre taper avec ardeur ce programme | 





@A'- CLAVIER = 
30 ‘- XHAPIÉEEEENNETERX # 
40 ‘- PROGRAMME D'AIDE À LA  - 


50 ‘- REDEFINITION DU CLAVIER - 


60 ‘- GRACE À SETKEYS,COM = 
10 '- Par Olivier LE BIHAN - 
80 ‘- Cc) LOGI'STICK 88 5 
90 lnmmmmnmmmmmonmemmmmemmmm—— 


100 ON ERROR GOTO 670 :e$=CHR$(27) :CLS$=e$+"E"+e$+"H":DEF FNlo 





c$Cx,y,a$)s2e$+"V"+CHRS(32+y)+CHRS(32+x)+a$: inv$se$+"p" DEF FN 

centre$(a$,y)=FNloc$(45-LEN(a$)/2,y,a$):ninvézet+"q":DIM code 
(81),fichier$(200),cx(81),clavier$(81):ci=128' (0C) 

110 DEF FNuind$(tr,lc,h,w)=e$+"{"+CHR$C32+tr )+CHR$C32+1c )+CHR 

$C32+h)+CHR$(32+0)' (FT) 

120 DATA "STP",66,4,64,6,65, ,67,',56,1,49,6,48,è,41,1,40,"ç" 
,33,à,32,),28,-,24,DL),16,€DL,72,CAN,75,CUT,10,CPY,11,PST,3,T 

AB,68,A,67,2,69,E,58,R,50,7,51,Y,43,U,42,1,35,0,34,P,27,°,26, 

,17,RET,18,F7,77,7,20,8,12,9,04,LCK,70,0,69,S:' (LJ) 

130 DATA 60,0,61,F,53,6,52,H,44,93,45,K,37,L,36,M,29,Ù,28,4,19 
,F5,73,4,13,5,14,6,5,SHF,21,U,71,1,63,C,62,V,55,B,54,N,46,", 
,38,":",39,":",31,=,30,6,22,SHF,21,F3,0,1,15,2,7,9,6,ALT,80,E 

XT,74,"€#)"1 1 (QU) 

135 DATA 23," ESPACE 

EX1,8,F1,2,0,1,",",79,ENT,78:' (UI) 
148 PRINT cis$FNvind$(0,0,2,90)FN1oc$(0,0,STRING$(89,154))FN] 

oc$(0,2,STRING$(89,154))FNcentre$("Xtx C L AVIER - Le con 

plément de SETKEYS,COM - par Olivier LE BIHAN - 1987 *xt",1) 

FNuind$(3,0,29,90)' (IM) 

158 PRINT FNcentre$(e$t"rC L'AVIER DU PC UW"+te$+"u",10 

):60SUB 364' (QG) 

160 RESTORE PRINT FNlocé(5,13,""):xe6:FOR iel TO 82:READ a$,c 

ode(i-1):1F a$="°" THEN a$=CHR$(34)' (6W) 

170 IF a$="F7" THEN xzx+4:GOTO 210' (E3) 

180 IF a$="Fl" OR a$="F3" OR a$="FS" THEN xex+8:60T0 210! (6K 

) 

190 IF a$="<-)" THEN x=x+24:60T0 210' (GP) 

200 IF x=81 THEN PRINT:PRINT:PRINT::x25' (ND) 

210 cxCi-1)=x! PRINT TAB(x)a$: xextdiclavier$(i-l)za$ NET i' 

(QW) 

220 y=14:1=0:c$=clavier$(1):60SUB 340' (08) 

230 match$=CHR$(32)+CHR$(13)+CHR$(27 )+CHR$CI)+CHRS( 26 )+CHRS(] 

7):60SUB 380' (30) 

240 IF iz2 THEN 400'touche validée! (HL) 

250 IF i=3 THEN PRINT FNcentre$(inv$éte$+"1 Confirmez la sorti 

e par 0 “+ninv$,26):i$=INPUT$(1):1F UPPERS(i$)C>"0" THEN G0SU 

B 360:60T0 230 ELSE PRINT FNvind$(0,0,32,90)c1s$e$"e":END' (2 

2) 

260 IF iz4 THEN G0SUB 560:G0T0 150'ligne pour dessiner tablea 

u sans effacer données' (VC) 

270 IF (iz5 OR is6) AND indz=@ THEN PRINT FNloc$(0,0,CHR$(7)): 

GOTO 230' (VS) 

280 IF izS THEN GOSUB 590:60SUB 370:G0T0 230' (VX) 

290 IF iz6 THEN G0SUB 630:60SUB 370:60T0 230' (VU) 

309 cé=ninvé+clavier$(1):GOSUB 340:1=1+1:1F 1:82 THEN 220 (I 

R) 

310 IF (1219 AND y=14) OR (1297 AND y=16) OR (1=54 AND y=18) 

OR (1=71 AND y=20) OR (1=82 AND y=22) THEN yzy+2' (8R) 

320 cé=clavier$(1):60SUB 349' (81) 

330 GOTO 238' (HO) 

340 PRINT FNloc$(cx(1)-1,y,inv$+c#tninv$):RETURN' (AH) 

350 c$=ninvé+clavier$(1):GOSUB 340 :RETURN' (YW) 

368 PRINT FNcentre$(e$+"{f"+invéte$+"1(ESPACE) déplace le curs 

eur , (RETURN) valide la touche , CEXIT> pour quitter ,"+ninv$ 

,26):PRINT FNcentre$(" "+inv$+" (TAB) pour voir les redéfinit 

ions" ,4):PRINT FNcentre$("<F1l> pour sauver sur disquette", 5)' 
(6F) 

376 PRINT FNcentre$(" "+inv$+"(TAB) pour voir les redéfiniti 

ons",4):PRINT FNcentre$("<F1> pour sauver sur disquette", 5)FN 

centre$("<F3) pour iapriser"+ninv$,6):RETURN' (2P) 

390 is0:1#=INPUTSC 1) ieINGTR(mALERS 18): RETURN! (66) 

390 :' (5Y) 

400 ' redéfinition d'une touche 

410 z$=clavier$(1):IF 1274 THEN 2$=NI0$(z8, INSTR(z$,"E"),11) 
CMX) 

428 PRINT FNcentre$(invéte$+"lTouche validée:"+z$+" , (CAN) p 
our annuler , une touche pour continuer, "+ninv$, 26): i#$=INPUTS 
():IF i$C)CHR$(8) THEN 430 ELSE v=0:G0SUB 360:6070 230' (1H) 


" 47,"€-)",76,PTR.9, 
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QUTNENTe) 1) 


430 PRINT FNloc$(0,29,e$+"l")FN1oc$(0,25,e$+"l"+e$+"eEntrez v 

otre redéfinition :")'PRINT STRING$(72,95)+e$+"J"+STRING$(72, 

8)::LINE INPUT ;""rd$'IF LENCrd$)>72 GOTD 430 ELSE IF rd$="" 

© THEN 430' (F6) 

448 nbcar=0:1F LEN(rd#)=1 OR (LEN(rd$)z2 AND LEFT$(rd$,1)=""" 
) THEN nbcar=l' (7N) 

450 PRINT FNloc$(4,25,e$+"lEntrez le(s) touche(s) de contr"+C 

HR$(232)+"le (N S AE SA , (RETURN) seul si 'None'):")!PRINT 
STRING$(10,95)+e$+"J"+STRINGS(10,8)::LINE INPUT :"",t$:IF t$= 
XCTHEN L$="N" ELSE IF LENCL$))10 THEN 450' (MP) 

460 tS$=UPPERSCLS):IF INSTR(LS,"N")=0 AND INSTR(LS,"S")=0 AND 
INSTRCTS,"A")=0 AND INSTR(tS,"E")=0 AND INSTR(ES,"SA")=0 THEN 
450" (F2) 

470 n2$=rd$+CHR$(34)+CHR$(32):IF nbcar<)l THEN n2$="°'#"+HEXS$ 
(ci,2)+"'"4CHR$(34)+CHR$(32)' (0B) 

480 n$=STR$Ccode(1))+CHR$(32)+t6+CHR$(32)+CHR$(34)+n2$' (A1) 
490 PRINT FNloc$(0,25,e$+"lEntrez le commentaire (<RETURN> si 
rien):"):x1=90-LEN(m$):PRINT STRINGS(x1 ,95)+e$+"J"+STRINGS (x 
1,8);:LINE INPUT :"",ren$:IF ren$="" THEN re=@ ELSE IF LEN(re 

n$)>x1 THEN 490' (ZA) 

500 GOSUB 550' (J3) 

610 IF NOT rs THEN fichier$(ind)zn$+tren$:ind=indtl:IF ind=200 
THEN PRINT FNcentre$(inv$+e$+"1Dernière définition acceptée" 
4ninv$,26):FOR hj=1 TO 2000:NEXT hj:G0T0 590 ELSE IF ind(200 
THEN 520 ELSE IF rs THEN 540' (KK) 

620 IF nbcar()1 THEN fichier$(ind)="EN#"+#HEX$(ci,2)+" "+CHR$(3 
Di+rd$+CHR$(34):ind=indtlicisci+l'IF VALCHEX$(ci,2))>&H9A THE 
N PRINT FNcentre$(inv$te$+"1Cette touche est la dernière pou 
voir contenir une phrase, "+ninv$,29):FOR i=1 TO 2000:NEXT' (W 
F) 

530 PRINT FNloc$(0,25,e$+"J"):GOSUB 360:60T0 230' (26) 


O O O © AZERTY 






cours complet de dactylographie 
pour la maîtrise du clavier Azerty 


une méthode unique 
comprenant plus de cent exercices 


PROGRAMMATION BASIC 


540 PRINT FNloc$(0,25,e$+"J"+e$+"f")FNcentre$(inv$+CHR$(7)+e$ 
+"lCette redéfinition a déjà été inscrite,, ,"+ninv$,29):VHILE 
INKEY$="":VEND:PRINT FNloc$(0,29,e$+"1"):G0T0 230' (T2) 

550 FOR k=0 TO ind:rs=(n$tren$=fichier$(k)):NEXT k:RETURN' (0 
T) 

564 ‘vision des redéfinitions 

570 PRINT cis$FNcentre$(inv$+"t ? À Début des redéfinitions 
4 * X"tninvé,0)' (94) 

580 PRINT:FOR i=0 TO ind:PRINT fichier$(i):WHILE INKEY$C)"":4 
HILE INKEYS="": VEND VEND: NEXT i:ns$sinvé+"x * X Fin des redé 

finitions, tapez une touche X * #"+ninv$ PRINT TAB(4S-LEN(RS 

$)/2)ns$:VHILE INKEY$="":VEND:PRINT cIs$:RETURN' (R3) 

590 ‘sauvegarde sur disquette 

600 PRINT FNloc$(0,8,e$+"d"+e$+"e")e$"HEntrez un non de fichi 

er!" LINE INPUT :"" f$:IF f$="" AND ind(200 THEN PRINT FNloc 

$(0,8,e$+"f"+e$+"d"):RETURN ELSE IF f#$="" AND ind=200 THEN 60 

à! (SU) 

610 PRINT FNloc$(@,8,e$+"f"):ON ERROR G0T0 660' (22) 

628 OPEN "o",1,f$:FOR i=0 TO ind'PRINT #1,fichier$(i):NENT i; 

CLOSE PRINT FNloc$(0,3,e$+"d"):IF ind=200 THEN RUN ELSE RETUR 

N' (KR) 

630 ‘sortie inprinante 

640 PRINT FNloc$(0,8,e$+"d"+e$+"HConfirnez par 0"):i$=UPPERS( 
INPUT$(1)):IF i$C)"0" THEN PRINT e$"H"e$"l":RETURN' (ZA) 

650 FOR i=0 TO ind'LPRINT fichier$(i):NEXT i:PRINT e$"H"es"l" 
!RETURN' (64) 

664 ‘traitement des erreurs 

670 PRINT FNloc$(0,8,e$+"d"+CHR$(7))FNcentre$("ERREUR N° "+STR 

$CERR)+" ,LIGNE"+STRS(ERL) ,5):1$=INPUT$(1):1F ASC(i$)=3 THEN P 

RINT FNvind$(0,0,32,90)c1s$:END ELSE PRINT FNloc$(0,5,e$+"1") 
IRESUNE ncAt' (wo) 







progressifs en rythme et en difficulté 


Mettez toutes les chances de votre côté avec AZERTY 
c'est un logiciel LOGISTICK distribué par D.D.I. 
en vente chez votre revendeur spécialiste PCW 
Renseignements (1) 48.67.28.44 + 


CLAVIER MAKER ° L'ECHO DU PCW N°16 








FOURNITURES ARTS GRAPHIQUES ET INFORMATIQUE 








| NOTRE OFFRE DU MOIS ! RAM + l'extension 256 Ko pour 8256 : 350 F au lieu de 450 F| 












































































































































































































































551001 AMSTRAD PCW 8256 1 lecteur 4740.44 5102363 POCKET BASE - Base de données 790,00 5150051 LOCOMAIL Mailing sous Locoscript 2445,00 
551002 AMSTRAD PCW 8512 2: lecteurs 5926.44 5102366 POCKET CALC - Tableur 450,00 5150052 LOCOSPELL Dictionnaire Locoscript2 NC 
551003 AMSTRAD PCW 9512 6511.14 5102184 POCKET WORSTAR -Trait. de textes 890,00 5150053 MOP-MBP Mini Bureau Professionnel 895,00 
551101 2e Lecteur disquette FD-2 - 3" 1659.21 5103594 ROTATE 350,00 5150054 POWER AMX Bureau - Souris + Progr. 925,00 
551103 Lecteur 51/4 PACE 2500,00 5104003 STARGLIDER 302,00 
5103620 STRIKE FORCE HARRIER - Jeu 227,00 
LOGICIELS POUR PCW 5102639 TELETUTOR - Apprentissage clavier 495,00 ares da SE ne 
* précisez le modèle (8256-8512 ou 9512) 1 D 02875 TOMAHAWK D ABERNESAEEReS a 5250001 Et FRAME 256 Ko ne He 450,00 
5102362 3D CLOCK CHESS - Jeu d'Echecs 150,00 è Vasse is SÉSOET no 5250002 Rallonge imprimante 2 cables de 1m ; 190.00 
"5102141 ACT 1 - Gestion de Fichiers 805,00 À nee HA EQURUR an 5250003 Jeu de 3 housses super luxe 350,00 
5102801 ALEX - Système Expert 350,00 [1 se a Tes Es 5250004 Pied orientable mult-directionel 350,00 
5102917 ANALYSE FINANCIÈRE 210100). \ PIÉDOR MINES MAIELSesEnIAl SOL] 5250006 Stylo Optique + Programme DAO 880,00 
6103185 AUTOFORMATION ASSEMBLEUR + Livre 296,00 [1 5150008 TASWORD 8000 - Trait. Texte Pro 92200 [1 5260006 SOURIS + Intertace Joystick + DAO 1500.00 
*5103544 AZERTY Pour apprendre le clavier 250,00 15 150004 TASPRINT Caractères pour Tasword 230,00 5250007 nets eveidé MX 330 290 00 
5102693 BATMAN Jeu 195.00 15 50006 COMPAGNON - Utilitaire de Bureau 290,00 52ICA0A Éorisce oystick MX-770 950 00 
5103949 BOB WINNER - Jeu 240,00 5 150007 SPACE INVADERS - Jeu en 3D 150,00 52ADD18 Joystick ; X.880 150.00 
5102452 BRIDGE PLAYER - Bridge solitaire AID AG ENS AISOOOSS TAES SRE MIN pos *52CPS Intertace Série/Paral. imprimante 690,00 
5102337 C BASIC COMPILEUR- Utilitaire AS IOU LELSPNNS PRNEAS EARIAR CS IE RAD 5211101 Ruban NOIR pour imprim 8266/8512 85,00 
5102608 COLOSSUS CHESS - Jeux d'Echecs 180,00 ! 9150010 MÉRÇORE : Special Représentant 1885 U [ 52 102 Ruban ROUGE pour imprim 8256185 2 150.00 
‘5104599 COMPTABILITÉ ALIENOR + CERFA 1415,00  [ 5150011 PCW PAINT - Utilitaire D.A.0 3000 (1 5211103 Ruban BLEU pour imprim. 8256/8512 150.00 
*5102436 COMPTABILITE ALIENOR 1068,00 5150012 LANGUAGE C - Compil. C en anglais 550,00 | 211104 Ruban VIOLET pour mprim 8256/8812 is 
5103664 DATAMAT - Gestion de Fichiers 395,00 T1 5150013 SNOOKER - Jeu de réflexion 280,00 {1 5211105 Ruban MARRON pour imprim. 8256/8512 150.00 
5150046 DBASE2 gestion base de données 789.90 5150015 BOUNDER - Jeu d'arcade 220,00 5211106 Ruban VERT pour imprim 8956/8512 150:00 
5103423 DB COMPILER Compilateur DBASE 11 790,00 [1 5150016 SPOOL - Utilitaire d'imprimante 30,00 (1 5211107 Ruban ORANGE pour imprim. 8256/8512 150.00 
*5102361 TALOS DEVIS TRAVAUX 1980,00 "5150017 GRAPHIC MAGIC - Routines assemb 350,00 5211108 Cassette ruban pour 9512 NOIR 60:00 
5102334 DR DRAW - DA.O 649,00 [1 5150018 DEVPAV 80 (en anglais 550,00 5215007 isquettes 3 pouces CF 935 00 
5102335 DR GRAPH - Graphiques 649,00 [1 5150079 LOCOSCRIPT2 350.00 [1 5252000 Disquettes 3 pouces CF 2DD 79.00 
5103595 EXBASIC - Utilitaire de graphisme 250,00 5150020 ASTRO 1 - Astrologie ! personnalité 450,00 52IKE06 SOURIS KEMPSTON compatible PAO 830.00 
"5104600 DAMOCLES FACTURATION/STOCK + CERFA21 12,00 5150021 ASTRO Il - Astrologie ! pers. + Avenir 950,00 B2AMX7 SOURIS AMX compatible PAO 695 00 
"5102496 DAMOCLES FACTURATION/STOCK  1766,00 LI 5150022 ASTRO COUPLE - Astrologie couples 600,00 © 528003 DIGITALISEUR VIDEO ROMBO 1400,00 
5103776 FAIRLIGHT - Jeu d'exploration 80,00 5150023 ASTRO Ill - Astro Il+ Astro Couple 2000,00 52SCA01 Scanner MASTERSCAN 695 00 
5104689 FONT EDITOR - Utilitaire 239,00  [] 5150058 ASTRO FUTUR 950,00 52TLO04 Cordon RS-232 CPS vers Minitel 200,00 
1 5103906 FRANK BRUNO BOXING - Jeu 85,00 [1 5150024 BOURSE 2000 - Gestion boursière 860.00 F1 5211005 Cordon Série DB-25 PCW-Sêne 150,00 
5102918 GESTION D'ASSOCIATION 190,00 Li 5150025 HERAKLIOS - Utlit. gestion disk 35000 f 52TL006 “ordon Série Null Modem PCW-PCW 150.00 
5102297 GESTION DE FICHIERS 260,00 [1 5150026 GENECAR - Générateur caractéres 199,00 52TL07 Boitier Auto-Répondeur pour SYNEA 250.00 
5102333 GESTION DOMESTIQUE 245,00 [1 5150027 AMSTRAMDAMES - Jeu de Dames 199,00 52ALO13 Ecran de protection , 7 360.00 
5104170 GUARDIAN & BLAGGER - Jeu 70,00 [1 5150028 GRAPHOLOGIE + BIORYTHMES 199,00 52AAB15 Pastille antistatique 80.00 
[1 5104173 HEAD OVER HEELS - Jeu 70,00 5150029 ALL YOU EVER (jeu en anglais) 196,00 + BAC 19 THINGI porte-document 30,00 
5104139 HEATHROW AIR T.C. - Jeu 85,00 [1 5150030 FLEET STREET EDITOR PAO en angl 860,00 5211109 PLANKEUR porte-disquettes 59 00 
5103036 HISTOIRE D'OR - Jeu 249,00 5150031 SIGNWRITER Réal. d'affichettes 490,00 CO 52AAB17 Boîtier disquettes 3" 90.00 
5102919 L'INTEGRE 2690,00 5150032 RUBIS Compta. familiale ou PME 585,00 1 5224700 Papier TT 12°%240mm - 600 plis 48 00 
5104398 LEADER BOARD - Jeu 210,00 C1 5150033 AGENDOR - Gestion de fichiers 500,00 5270001 iSting Zoné 12'’x240 mm 2500 plis 218 29 
C1 5104253 LECTURE EFFICACE 290,00 5150036 DAMOCAISSE - Gestion de caisse 1380,00 ù k 
_] 5102794 LIGHT PEN - Stylo optique + D.A.0 880,00 5150037 SAPHIR 1 Gestion de fichiers 355.80 
C1*5104006 MODULE CERFA - Bilan 569.28 C1 5150038 SAPHIR 2 Base de données 600,00 LIBRAIRIE 
_] 5114177 MULTIPLAN 498,00 5150039 ANNALES DE ROME - Wargame 254,00 EL] 5310010 Multiplan pour l'Entreprise 72,00 
5104688 NEWS DESK INTERNATIONAL 605,00 5150040 DTP-PAO 395,00 [1 5310011 Programmation du Z80 248,00 
_] 5103408 NOSTRADABUR Prév. Entreprise 490,00 C1 5150041 TUER N'EST PAS JOUER - Jeu 180,00 [1 5310012 Applications du Z80 210,00 
C] 5102638 OPTICAISSE - Caisse enregistreuse 794.62 5150042 BLOCUS - (Jeu familial en anglais) 214,00 E1 5310013 Introduction au Basic 48,00 
_] 5103951 ORPHEE 295,00 5150043 REVERSI| - Jeu Othello en anglais 228,00 [1] 5310014 Introduction au Pascal et Turbo P 248,00 
[1 5102916 PAIE - Traitement de la Paie 590,00 5150045 GUILD OF THIEVES (Jeu en anglais) 280,00 [1 5310015 Amstrad Locoscript 10,00 
_] 5102336 PASCAL/MT + - Compil.-désassemb. 649,00 5150048 CRISTAL 1 Graphismes 332,00 [1 5310016 Amstrad CP/M Plus 48,00 
C1 5104172 PAW 285,00 5150049 CRISTAL 2 Dessin en 3 D 533.70 EL] 5310017 Amstrad 8256/8512 Guide du Basic 45,00 
L1*5103118 PAYE CRESUS - Gestion de salaires 1174.14 5150050 LOGICOMM Fact./Stocks 1636.60 5310018 Le grand livre du PCW Amstrad 79,00 
_] 5103563 PCW GRAPH 395,00 5105171 WALBASIC - Util. de programmation 390,00 [1 5310019 Fichiers en BASIC 68,00 
CJ 5111125 PCW MOUSE + GRAPH.PACK Souris + DA01885,00 5104690 SNIP ART 180,00 [1 5310020 L'Univers du PCW 19,00 





Nouveau ! ! ! A tout acheteur d'un AMSTRAD PCW 8512 ou 9512 CML offre un abonnement d'un an à l'ECHO DU PCW | 




















NOM : PRENOM : 

ADRESSE : 

CODE : VILLE : 

Port : 25,00 F pour règlement à la commande Signature : 


60,00 F en contre remboursement. 


ASSISTANCE GRAPHIQUE 
de Nelson du DCR 


A renvoyez à : C.M.L., 3, rue des Vignes - 77520 Luisetaines 
Donnemarie Dontilly - Tél. : (1) 60 67 37 95 


Catalogue complet des produits PCW contre 3 timbres à 2,20 F 
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ECHO EU PCW - 





L’USINE : A GAZ 


PAR CLAUDE ANTIN 


CORRESPONDANCE! 


Faire simplement et rapidement des 
étiquettes auto-collantes au format 
89/36, tout en se créant un véritable 
fichier d’étiquettes facilement 
accessible, est la vocation de ce 
programme d’une étonnante souplesse 
et d’une convivialité qui fera envie à 
plus d’un programme du commerce. 





Après avoir saisi, sous basic, le programme qui 
suit cet article, il suffit d’un RUN pour lui donner 
le champ libre. Une fenêtre de 30 caractères sur 
8 lignes s'affiche en inversion vidéo et doit servir 
de champ de saisie (voir figure 1). Le texte de 
l'étiquette est à saisir ligne par ligne et 
différentes possibilités d'édition sont disponibles : 





HAE effacer ligne KES effacer tout MMl£EE impriner L étiquette Bas4if NENU 


Figure 1 


MAUÉA insertion de caractère EX double largeur MAUJ'E écrit sur disc 


U<cuT> : efface une ligne entière. I 
1 <CAN> : efface la totalité de l'étiquette 1 
| <F1/F2> : insertion de caractères Il 
+5 <-} : active ou désactive la double | 
I largeur i 


Il faut noter que la double largeur ne permettant 
pas l'impression des 30 caractères d’une ligne, 
le programme tronquera l'excédent à l'impression 





ETIC'FACILE + L'ECHO DU PCW N°16 





DE LA 


4 mais ne les refusera pas en saisie (dans le cas 
où l’on veut supprimer la double largeur, par 
exemple). 


LISTER LE FICHIER SUR ECRAN OU IMPRIMANTE 
APPELER UNE ETIQUETTE PAR SON NUMERO 
EFFACER DES ETIQUETTES 

INPRIMER À PARTIR DU FICHIER 

FIN D'UTILISATION DU PROGRAMME 


101X avec éches, validation par À 








Lorsqu'une étiquette semble complète, on peut 
en demander l'impression par <F7/F8>. Dans le 
cas où celle-ci ne convient pas, il reste possible 


de la modifier avant de 
procéder à la sauvegarde 
finale par <COPY>. 


La sauvegarde ne concerne 
que l'étiquette visualisée à 
l'écran. Cette dernière vient 
s'ajouter au fichier déjà 
existant en affichant à 
l'écran le numéro sous lequel 
elle est sauvée. Ce même 
numéro pourra être noté 
dans un agenda si le nombre d'étiquettes est 
important. 


Toute autre fonction relative à la gestion disc 
s'obtient par l'emploi d’un menu annexe obtenu 
par une pression de <EXIT>. Ce menu propose 
alors différentes options (voir figure 2). 


Impression en X exemplaires de la même 
étiquette. Cette fonction est particulièrement utile 
dans le cas où l’on veut avoir de 





Figure 2 


ETIQUETTE N° 
1L'ECHO DU PCVW 0 
PARIS NORD O 





ETIQUETTE N° 
1LOGI' STICK 0 
PARIS NORD O 





ETIQUETTE N° 
1FRANCOIS MITTERAND 0 






KA effacer ligne RUE effacer tout M£EE inpriner 1 étiquette Raifai NENU 














0) 
075 PARIS 






nombreuses étiquettes d'avance pour une 
correspondance régulière. 





Listage du fichier sur écran ou sur 
imprimante, comme l’illustre la figure 3. On 
entre les numéros de la première étiquette et de 
la dernière étiquette à visualiser ou à imprimer 


et ETIC'FACIL fait le reste (voir figure 3). 


Rappel d'une étiquette dans la fenêtre de 
l'écran en la chargeant du fichier disc. Il faut 
faire attention au fait que l'étiquette rappelée 
remplace l’étiquette déjà affichée. 











Suppression d’une étiquette du fichier 
disquette par l'entrée de son numéro. 





Impression du fichier à partir d'un numéro 
jusqu'à un autre numéro. Si ces numéros sont 
identiques le programme n’imprime que 
l'étiquette du numéro mis deux fois. 







Fin d'utilisation sous l'aspect d’un sous menu qui 
propose de revenir, soit au CP/M, soit au basic, 
soit à l’étiquette en cours. 





Concevez, imprimez et le tour est joué. 
Simple, non ? 





PCW 





L'ECHO DU 
© 
CENTRE D'AFFAIRES PARIS NORD 


LE BONAPARTE - BOITE 49 





93153 LE BLANC MESNIL CEDEX 


OLE BONAPARTE - BOITE 49 O 
093153 LE BLANC MESNIL CEDEX 


OLE BONAPARTE - BOITE 49 0 
093153 LE BLANC MESNIL CEDEX 


OAUX BONS SOINS DU CONCIERGE 0 



















OCENTRE D'AFFAIRES 









0 








OCENTRE D'AFFAIRES 









(0) 








OPALAIS DE L'ELYSE 







(0) 


Voilà, tout est dit. De toute facon, c’est d’une 
simplicité déroutante alors pourquoi s'en faire € 









2REMX ETIC'FACILE à NT 
3 REM PAR ; MEET 

À REN CLAUDE ANTIN i ÈS 
SREMS Ce) L'ECHO OU PU 8 2 
6 REM HAINE 


7 REM 

10 ! sszzesmsssesszeesss 
20 ' =ussssssazeusauszz ETIQUETTES MODE DIRECT =ze222222222225 
=== 

30 ’ ==sssszzcassassessz 

40 curon$=CHR$(27)+"e":curoff$=CHR$(27)+"f" :cumen$=CHRS(27)+") 
“irecu$=CHR$(27)+"k" MEMORY ,,1,248:VIDTH LPRINT 80’ (2P) 

50 ci$= CHR$(27)+"E"+CHRS(27)+"H" :iv$=CHRS(27 )+"p' ai v$=CHRS(2 
7)+"q":DEF FN loc$Cco,Li)=CHR$(27)+"Y"+CHR$(32+1 i )+CHRS(32+c0 
:PRINT ci$' (OP) 

60 nli=8:nca=30!tabu=INT((90-nca)/2)' (NN) 

70 60SUB S80:PRINT c1$' (21) 

80 60SUB 530:DIM 1$(nli),di$(nli):f4$="0" PRINT aiv$' (AO) 

90 FOR i= 1 TO nli :1$C1)=SPACES(nca):d1$(1)="0":PRINT FN Loc$ 
Ctabu-3,2#i)1i1" "siv$ SPACES Cnca):PRINT aiv$:NEXT à:PRINT i 
v$' (J6) 

100 liet=l'caret=l'ins=0" (5H) 

110 PRINT curon$:PRINT FN loc$(tabutitcaret,2tliet);:GOSUB 760 
" (XV) 

120 IF o$=CHR$(27) THEN 1250’ (38) 

130 IF o$=CHR$(13) OR caret=ncatl THEN 350’ (QJ) 


ETIC'FACILE + L'ECHO DU PCW N°16 


NIVEAU MOYEN 





140 IF o$=CHR$(26) AND ins=0 THEN ins=l'PRINT FN loc$(8,nlit4) 
: "INSERTION" :G0TO 110' (PU) 

150 IF o$=CHR$(26) AND ins=1 THEN ins=0:PRINT FN loc$(8,nli+4) 
taiv$:"insertion ;iv#:GOTO 110’ (5S) 

160 IF o$=CHR$(16) THEN GOSUB 400’ (CI) 

170 6OSUB 450’ (J5) | 

180 60SUB 500’ (72) 

190 IF o$=CHR$(31) AND Liet €) 1 THEN lietzliet-1:PRINT CHR$(2 
Th+"h"i! (XA) 

200 IF o$=CHR#(30) AND liet > nli THEN liet = Liet +1'PRINT C 
HR$(27)+*B"1! (IY) 

210 IF o$=CHR$#(1) AND caret (> 1 THEN caret=caret - L'PRINT CH 
R$C27)+"D":" (16) 

220 IF o$=CHR$C6) AND caret {> nca THEN caret=caret + l:PRINT 
CHRS(27)+"C":" (50) 

230 IF o$=CHR$(21) THEN 1$(liet)=SPACES$Cnca) PRINT curoff$:PRI 
NFFN loc$(tabut2,2+liet):SPACES(nca)' (KJ) 

240 IF o$=CHR$(22) THEN di$(liet)="1":PRINT FN loc$(tabu-1 lie 
t+2)iaivs;"DL"sivé" (IV) 

250 IF o$=CHR#(28) AND dif(liet)="1" THEN d1$(liet)="0":PRINT 
FN Loc$(tabu-1,liet +2)1aivéi" "iivé! (5K) 

260 IF o$=CHR$#(8) THEN PRINT aivé: GOTO 90’ :(RX) 

270 IF o$=CHR$(23) THEN f4$="0":G0SUB 590’ (NP) 

280 IF o$=CHR$(17) AND f4$="1" THEN GDSUB 590’ ($3) 

290 IF ASC(o$)<32 OR ASC(0$)>126 THEN 110! (MI) 

300 IF ins=l AND caret >l THEN 330' (DC) 

310 1$(liet)=LEFT$(1#(liet) ,caret-1)+08+ RIGHTS(1$(liet) ,nca-c 
aret):PRINT o$::1F caretznca THEN 350: ELSE caret=caret+l' (II 


) 

320 60T0 110’ (GW) 

330 1#(1iet)=2LEFT$(1$(liet) ,caret-1)+0$+RIGHT$(1#(liet) ,ncatl- 
caret):1$(liet)eLEFT$(1$#(liet),nca)' (IM) 

340 :PRINT RIGHT$(1$(liet),ncatl-caret):1F caret =nca THEN 35 
O:ELSE caretscaret+1:G0TO 110’ (6B) 

950 lietsliet+licaretzl: IF liets9 THEN 360:ELSE PRINT FN loc$ 
(tabu + 2,liet + 2)::G60T0 110 (ZK) 

360 lietz1:607T0 110! (U2) 

970 REM PRINT aiv$:PRINT:PRINT:FOR ligel TO nli:PRINT iv$:1$( 


lig)iaivé:NEXT Lig:PRINT aiv$:PRINT "etiquette terminée” :PRINT 
* IMPRESSION ?":G0SUB 10000 

380 IF o#$=CHR$(I6) THEN GOSUB 400’ (CM) 

390 END' (AB) 

400 FOR i = 1 TO nli:1F di$(i)="1" THEN LPRINT CHR$(14):LEFTS( 
1$0i),INT(nca/2)):CHR$C20):ELSE LPRINT 1$(i)' (J9) 

410 NEXT i:LPRINT:RETURN' (80) 

420 PRINT FN loc$(1,nli+é):aiv$:"LE MENU N'EST PAS ENCORE SERV 
[ ! COMBIEN D'ETIQUETTES VOULEZ-VOUS ( 0 à 500 ) "::INPUT nbe 
& ! (KI) 

430 IF nbet >0 AND nbet(510 THEN FOR k=1 TO nbet:60SUB 400:NEX 
T k:ELSE 420' (75) 

440 PRINT iv$:RETURN' (ZM) 

450 IF o$=CHR#(127) AND caret>l THEN 460:ELSE RETURN’ (9T) 
460 PRINT curoff$: PRINT FN Locé(tabutcaret,2+liet):" “:PRINT 
FN loc$(tabutcaret,2+liet):' (68) 

470 1$0liet)=LEFTS(1$(Liet),caret -2)+ RIGHTS(1$(liet) ,nca+i-c 
aret)+CHR$(32):caretscaret-l' (40) 

480 IF caretznca THEN RETURN'ELSE PRINT FN loc$(tabu+l+caret,2 
tliet):RIGHTS(1$(1iet) ,ncatl-caret)' (MZ) 

490 RETURN' (HP) : 

500 IF o$=CHR$(7) THEN SIO:ELSE RETURN’ (NP) 

510 1$(1iet)=LEFTS#(1$(liet),caret-1)+RIGHT$(1$#(1iet) ,nca-caret 
)+CHR$(32)' (BN) 

520 PRINT curoff$:PRINT FN Loc$(tabutcaret+] ,liet+2);:PRINT RI 
GHT$(1$(liet) ,ncatl-caret):RETURN' (NC) 

630 PRINT iv$:” CUT “iaiv$:” effacer ligne ":iv$:" CAN “iaiv$; 
"effacer tout ":iv$:" f7/f8 “iaiv$:" imprimer | étiquette "à 
v$:" EXIT “iaivé:" MENU"! (C0) 


ETIC'FACILE + L'ECHO DU PCW N°16 


PROGRAMMATION BASIC 


540 PRINT FN loc$(0,nlit4)'iv$é:" f1/f2 "raiv$:" insertion de € 

aractère "iiv$i" + “iaiv$é:" “iiv$i" - ":aivé:" double largeur 
Miv$:" COPY “raivé:" écrit sur disc”! (T3) 

650 RETURN’ (HM) 

560 ' ===2==22222222 CENTRAGE DE TITRE +++++4++4+44+4#bbtt thé 

++tttttttt 

570 PRINT TABCINT((90-LEN(titre$))/2)):iv$ititres saiv$ :RETURN' 
(Y7) 

580 PRINT:PRINT:titre$=SPACES(27):G0SUB S70:titre$=" E TI Q 

V'FACILE ":60SUB 570:titre$=SPACES(27) ;60SUB 570 :PRINT 
FN LOC$(30,8)"Appuyer sur une touche, , ,":G60SUB 760:RETURN' (3 

V) ‘ 

590 ‘ ==sszzz2zz ECRITURE SUR FICHIER DE L'ETIQUETTE EN COURS 

Sz=ssssss 

600 PRINT cunen$:PRINT curoff$:aiv$: PRINT CHR$(27)+"X"+CHR$(32 

+14)+CHR8(32+0)+CHR$(32+16)+CHR$(32+89) PRINT c1$' (Y9) 

610 GOSUB 730:buf$="":FOR f=1 TO 8:bufé=bufé+d1$(f)+18CF) NET 
f' (RH) 

620 IF f4$="1" THEN neznumet - l' (99) 

630 IF f4$="0" THEN GOSUB 750' (4Y) 

640 PRINT:PRINT:PRINT* ECRITURE DE L'ETIQUETTE N'*:iv$inetl; 

aivé' (60) 

650 LSET etif$=buf$:PUT 1 ,ne+l'IF f4$="0" THEN LSET etif$=STR$ 

(ne+1):PUT 1,1:CLOSE 1:60T0 670’ (42) 

660 CLOSE 1:f4$="0*' (RO) 

670 PRINT c1$: CHR$(27)+"y":recu$'ivé:curon$ :RETURN' (EF) 

680 ' ===s==222s SELECTION OUNE PARTIE DE FICHIER +++++t++tttt 

tt EEE EEE EEE EEE 

690 PRINT:PRINT:PRINT" à partir de : "::INPUT com! (CD) 

700 PRINT:PRINT * jusqu'à 1 "is INPUT fin$ ! (V4) 

110 60SUB 730:60SUB 750:1F conf>=ne OR finfène THEN PRINT"  V 

0$ DONNEES SONT FAUSSES CAR LE FICHIER CONTIENT "ne!" ETIQUET 

TES": CLOSE 1: G0TQ 690:ELSE CLOSE 1:RETURN' (OV) 

720 ! =s==22sssssszz (OUVERTURE FICHIER ++++4ttbbtthbtth hé 

++++4+ 

730 OPEN "r",1,“ficheti” ,248:FIELD 1,248 AS etif$ RETURN’ (IE 


) 

740 ' =ez2esssssszzs [LECTURE NOMBRE DENREGISTREMENTS +++++++++ 

+ttttttt 

750 GET 1,line=VAL(etif$):RETURN' CIM) 

760 o$=INKEYS:IF o$="" THEN 760: .ELSE RETURN’ (K9) 

770 ‘ =sssssssssz IMPRESSION REPETITIVE +++++++4#+4#4t+ttttété 

ÉLET DSC 2 ‘ 

780 PRINT FN loc$(5,6):aivé:" COMBIEN D'ETIQUETTES VOULEZ-VOUS 
(€ 0 à 500 ) ":: INPUT nbet ' (WH) 

790 IF nbet 0 AND nbet(510 THEN FOR k=1 TO nbet:G0SUB 400:NEX 

T k:ELSE 420' (7E) 

800 PRINT iv$:60T0 1420’ (01) 


810 ! ====2zssszsz L'ISTAGES FICHIER ==zzsssssessssssesesssesess 
Szssssssssssssss 


820 titre$=" L I STAGE “:PRINT:60SUB S570:G0SUB 690’ (86) 
830 PRINT:PRINT :PRINT” Sur Ecran 'E’ Sur 
Inprinante ‘I! ?"' (PI) 

840 GOSUB 760:0$=UPPERS(0$): IF 0$(>"E* AND 0$(>"1" THEN 840! ( 
6E) 

850 GOSUB 730:1F o$="1" THEN FOR az=conX TO fink:6ET | ,a’ELSE 8 
70’ (PG) 

860 LPRINT "ETIQUETTE N° "rai" mmnemmmnsnuns 
-"1etif$:NEXT a: CLOSE 1:6070 1420 ’ (02) 

870 FOR a=con$ TO fin#:GET 1 ,a:PRINT “ETIQUETTE N° “ia: ----- 
mms “ietifs” (26) 

880 ciz=cl+1:IF c1=3 THEN cls0:titreé=" continuer ESPACE sort 
ir EXIT *:60SUB 570:60SUB 760:IF o$=CHR$(32) THEN PRINT CHR$(2 
7)+"A":SPACES$(75):G0TO 900’ (DE) 

890 IF o$=CHR$(27) THEN 910! (2C) 

900 :NEXT à ‘ (6J) è 

910 CLOSE T:PRINT'titreé=" fin du listage “:G0SUB 570:60SUB 76 





MATION BASI 


0:60T0 1420’ (BP) 

920 FOR azconk TO fin#:GET 1 ,a:PRINT “ETIQUETTE N° “ia:"///*: 
etif$:NEÂT à :CLOSE 1:60T0 1420’ (37) 

930 ! seszenszzs (CHARGEMENT ETIQUETTE ++++++++##+#+##+#t+ttt+t 
Httttttttt 

940 PRINT:PRINT:PRINT” Donnez Le nunéro de l'étiquette à char 
ger: "::INPUT numet' (XD) | 

950 G60SUB 730:60SUB 750:IF numet >1 AND numet (= ne THEN GET | 
nunet' CLOSE 16070 970' (50) 

960 CLOSE 1:PRINT :PRINT* Valeur non acceptée: seulement de 2 
à "ine:607T0 940! (IQ) 

970 buf$setif$:FOR f=0 TO 7:1$(f+T)=MID$(buf$,fx31+2,30):d1$(f 
+1)=MID$(buf$,fk31+1,1):NEXT f' (X0) 

980 PRINT ci$:PRINT:PRINT:PRINT'titre$=" f3/f4 pour corriger 
dans le fichier ":G0SUB 570:GO0SUB 760; PRINT CHR$(27)+"y":recu 
$:FOR i =1 TO 8:PRINT FN loc$(tabu-3,2+i)1ii" "rivé:1$Ci)iaiv 

$' (65) 

990 IF di$(i)="1" THEN PRINT FN loc$(tabu-1,i+2):"DL'' (72) 
1000 NEXT i:PRINT iv$:f4$="1":G0TO 110’ (NM) 

1010 ’ sssszssz2zesess EFFACEMENTS DANS LE FICHIER +++++++++44 

+++tttttt 

1020 titre$=" EFFACEMENTS *:PRINT:GOSUB 570:G0SUB 69 

0’ (H3) 

1030 PRINT:PRINT:PRINT ” Confirmation effacement des étiquett 
es n'":con#;" à "ifin4;"  Oui/Non”' (16) 

1040 IF fin#= 1 THEN PRINT:PRINT PRINT iv$:" Le premier enregi 

strement contient le nombre d'étiquettes: ne pas effacer ! ":a 
iv$:G0SUB 760:G0T0 1420’ (V2) 

1050 IF comt=1 THEN comÿ=2: PRINT PRINT” 
commencer qu'à partir du numéro 2 "' (FB) 
1060 GOSUB 760:1F UPPER$(0$) <>”0* THEN 1420’ (TO) 

1070 GOSUB 730:F0R a=conf TO finf'LSET etif$=SPACES(248) :PUT 1 
a:NEXT a! CLOSE 1:60T0 1420’ (OA) 

1080 ‘ 2====z2222222222 [MPRESSION À PARTIR OU FICHIER ++++++++ 


L'effacement ne peut 


tkt htt 
1090 titre$=" IMPRESSIONS À PARTIR OU FICHIER ";PRINT:G60SUB 57 
0:60SUB 690’ (F2) 

1100 PRINT:PRINT:PRINT “ Confirmation impression des étiquett 
es n'"iconk:" à "ifin4:"  Oui/Non'' (JR) 

1110 GOSUB 760:1F UPPER$(0$) <>"0" THEN 1420’ (SW) 

1120 IF cou#=] THEN PRINT:PRINT" RAPPEL: la première étiquett 
e contient Le nombre d'enregistrenents"' (WC) 

1130 GOSUB 730:F0R a=conf TO fint!GET | ,a:buf$=etifs" (AR) 
1140 :FOR f=0 TO 7:1$(f+1)=MID$(buf$,fk31+2,30) :d1$(f+1)=MID$( 
buf$,fk31+1,1):NEXT f' (60) 

1150 GOSUB 400:NEÂT a CLOSE 1' (9Y) 

1160 PRINT c1$: CHR$(27)+"y":recu$:curon$:G60TD 90’ (6U) 


1170 ’ ==2222222 SORTIES ET RETOURS +++++#+++t#httttttt ht hthé 
Htttttt tte tttt 

1180 PRINT:PRINT:PRINT" - retour à l'étiquette en cours------ 
-_R"' (0X) 

1190 PRINT'PRINT” - arreter en restant sous basic------- B" 
! (02) : 

1200  PRINT:PRINT" - arreter en revenant à CPM----------- $" 
1 (K6) 


1210 GOSUB 760:0$=UPPER$(0$):1F o$="R" THEN 1420’ (10) 

1220 IF o$="S" THEN PRINT CHR$(27)+* y": PRINT curon$:PRINT c1$ 
!PRINT aiv$:SYSTEM' (OW) 

1230 ' ===2=22222 MENU s==ssszsssse 

1240 'sss2ssssssssassssssesseesessssz 

1250 PRINT cumen$ PRINT curoff$iaiv$ PRINT CHR$(27)+"X"+CHR$(3 
2+14)+CHR$(32+0)+CHR$(32+16)+CHR$(32+89)' (11) 

1260 PRINT iv$:60SUB 1340:PRINT aivé:G0SUB 1350:60SUB 1360 :60$ 
UB 1370:G0SUB 1380:60SUB 1390:PRINT'titres=" Choix avec fés f1 
èches, validation par RETURN ou ENTER ":60SUB 570' (38) 
1270 n=l' (AT) x 








” NIVEAU MOYEN 


1280 GOSUB 760:IF o$=CHR$(31) AND m=1 THEN 1280! (WF) 
1290 IF o$=CHR$(30) AND n=6 THEN 1280 (FX) 
1300 IF o$=CHR$(13) THEN PRINT c1$:0N m GOTO 780,820,940,1020, 
1090,1170' (VH) 
1310 IF o$=CHR$(30) THEN GOSUB 1400:n=m+1:PRINT iv$:GOSUB 1400 
:PRINT aiv$:G0TD 1280’ (DS) 
1320 IF o$=CHR$(31) THEN GOSUB 1400:n=m-1 PRINT iv$:G0SUB 1400 
!PRINT aiv$:60T0 1280’ (0W) 
1330 GOTO 1280* (JV) 
1340 PRINT FN 1oc$(25,2):" IMPRIMER L'ETIQUETTE EN COURS PLUSI 
EURS FOIS ":RETURN' (T4) 
1350 PRINT FN loc$(25,4):" LISTER LE FICHIER SUR ECRAN OU IMPR 
IMANTE  ":RETURN' (JS) 
1360 PRINT FN loc$(25,6):" APPELER UNE ETIQUETTE PAR SON NUMER 
0 "RETURN! (CK) 
1370 PRINT FN 1oc$(25,8):" EFFACER DES ETIQUETTES 
MIRETURN' (NS) 
1380 PRINT FN loc$(25,10):" IMPRIMER À PARTIR OU FICHIER 
RETURN (XK) 
1390 PRINT FN loc$(25,12):" FIN D'UTILISATION DU PROGRAMME 
MIRETURN' (3K) 
1400 ON n 60SUB 1340,1350,1360,1370,1380,1390:RETURN' (56) 
1410 ’ ==2222 RETOUR A L'ÉTIQUETTE ++++++++++tttt 
1420 PRINT ci$: CHR$(27)+"y"recu$:ivé:curon$ :GOTO 110! (F0) 
1430 GOSUB 760:PRINT ASC(0$):G0TO 1430’ (01) 
1440 PRINT CHR$(27)+"ÿ";PRINT curon$ PRINT cI$ PRINT aivé' (0 
6) 


Que 


CES 





c'est LOG STICK ! 


ETIC'FACILE + L'ECHO DU PCW N°16 





Comme vous l'avez fort bien compris, ce jeu 
idiot met en scène un serpent dont la première 
des caractéristiques consiste en un goût prononcé 
pour l’élongation caudale. 

Bien entendu, plus il s’allonge et plus vous 
marquez, mais aussi plus vous risquez de le 
faire rencontrer par lui-même et, sachant qu’un 
serpent qui fait un noeud avec sa queue finit 
toujours par en succomber, vous déduisez que le 
je ne l’autorise pas. 

Par conséquent, SNAKY ne peut en aucun cas 
se couper, ni toucher les bords de l'écran. Pour 
pimenter l’ensemble, j'ai ajouté deux 
particularités qui méritent une explication. La 
première concerne une floppée de dièses qui 
envahissent le terrain et sur lesquels SNAKY ne 
doit en aucun cas passer au risque d’une 
électrocution immédiate et sans appel. La 
seconde est plus sympatique puisqu'elle concerne 
le bonus qui consiste en nombres aléatoires 
compris entre 2 et 9 sur lesquels SNAKY a tout 
intérêt à passer pour augmenter son score du 
montant de leur valeur. 
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PAR PIERRE PAND 


CIOTIC EE 


Après avoir comblé la mémoire des quelques 
lignes de basic qui suivent ce brillant exposé, je 
vous recommande de sauvegarder SNAKY par 


SAVE ‘'SNAKY1'' <RETURN>. 


Le 1 mis dans le titre sert à distinguer cette 
version des versions suivantes qui ne manqueront 
pas d'arriver prochainement si je tiens compte 
de l’ardeur reproductrice de notre gentil boïdé. 


Si vous êtes doué pour la dactylo, 
l'indispensable RUN doit vous proposer de 
presser une touche pour souffir. Vous le faites 
sans hésiter après avoir pris soin de changer les 
piles de votre pace-maker et vous démarrez, 
tout de go, sur l’envolée serpentesque (ce mot 
est en cours de dépot, ne le cherchez pas dans 
votre dictionnaire et envoyez moi 10 F pour 
chaque utilisation). 


SNAKY se dirige à l’aide des quatre touches de 
curseur qui se prennent pour une boussole. Le 
score est affiché en permanence en haut de 
l'écran et le fait de le dévorer n'apporte que 
des ennuis | 5 





NIVEAU DEBUTANT AA LEE TTL 





Devenir fou 


avec SNAKY| Notez que le programme gère sans faiblir le 

c'est très record établi et en assure la pérénité en le 

ne ne | Sauvant sur disquette avec le titre évocateur de 

Déui rien RECORD. 

RAP Vous savez tout maintenant pour pouvoir vous 
étriper en famille en compagnie de SNAKY qui 
saura vous le rendre avec ferveur. Comme vous 
avez été très sage jusqu'ici, je vous livre, pieds 
et poings liés, les variables qui font de ce 
programme un chef d'oeuvre (je n'ai pas dit une 
cool œuvre l) et vous salue bien boa... 

SE SOS ER EU a À 

| VARIABLES UTILISEES PAR SNAKY 

1 Xlet Y1 : Gestion de la position de SNAKY I 

| X2et Y2 : Gestion des bonus aléatoires [ 

| X3 et Y3 : Gestion des dièses Î 

XetY : Gestion de l’incrément lié à la direction 

j SCORE  : Comptabilité du score fl 

| RECORD : Comptabilité du record [| 

| ZUT : Comptabilité des jurons (en option) Il 

- A$ et A  : Gestion du clavier 

I V : Valeur du bonus ! 

1 C : Contrôle de la boucle I 

1 A(89,30) : Historique du terrain avec : I 

[ 0 pour les cases encore vierges I 

( 1 pour les cases ayant été visitées par SNAKY I 

I 2 à 9 pour les cases contenant un bonus I 








reportez-vous à la note située en dernière page. 





V'REN SÉISERISEETIENEEREEREEESX 


2 REN ï 
SRE SNAKY-VI + 
LREN * L 
S REMX LE SERPENT FQU 111 # 
6 REM L 
TREMX (c) LOGI'STICK 88 à 
8 REM X L 
9 RENM HÉHISEESELIIETIELETEENEE 
10 ‘ 

20 ‘ #44 CONTROLE DU RECORD SUR DISC 
30 ‘ 


40 IF LEFTS(FIND$("RECORD1"),7)C)"RECORDI" THEN OPEN "0",1,"A 
!RECORDI" :A=350:PRINT #1 ,A:CLOSE' (6A) 

50 ? 

60 ‘ 4Xx INITIALISATION DES VARIABLES 

70 ' 

80 VIDTH 255:CLEAR:PRINT CHR$(27)"E"CHRS(27)"H"CHRS(27)"f": 11 

210:YIs10:X=1:DIM A(90,30):PRINT "PRESSES UNE TOUCHE POUR SOU 

FFRIR,,,"' (21) 

90 AS=INKEYS:K=K+1:IF A$="" THEN 90 ELSE RANDOMIZE(K):PRINT C 

HR$(27)"E"" (40) 

100 DEF FNLOCS(X,Y)=CHR$(27)+"V"+CHRS(32+Y)+CHRS (3241)! (83) 
119 ‘ 

120 " #t C'EST PARTI MON SNAKY ! 

130 ‘ 

140 FOR I=1 TO 30:X3=INT(RND( 1489): Y3=INT(RNDC6)430) :PRINT F 

NLOCS(X3,Y3)"#":ACX3,V3)21:NEXT' (59) 

150 FOR C=1 TO 30:A#=INKEYS:IF A$="" THEN 200 ELSE A=ASC(A$)' 
(FS) 

160 IF Azl THEN {=-1:Y=0:G0T0 200' (DO) 

170 IF A=6 THEN {21:Y=0:60T0 200' (CL) 

180 IF A=31 THEN Y=-1:X#0:G60T0 200' (F5) 

190 IF A2390 THEN Y=1:X=0:G60T0 200' (DW) 

200 A1=A1+4:YI=YI+Y:IF 1389 OR 11<0 OR Y1<0 OR Y1>29 OR ACAB 

S(X1),ABSCYI))=1 THEN FOR K=1 TO 10:PRINT FNLOCS(0,0)CHR#(7): 

NEXT:OPEN "1",1,"A!RECORDI": INPUT #1 ,RECORD:CLOSE :PRINT CHRS( 

27)"E"FN LOC#(32,16) "PERDU !1! AVEC UN SCORE DE" ;SCORE : 60TD 2 

40" (WE) 

210 IF“ACX1,Y1)>1 THEN PRINT CHR#(7) ELSE A(X1,YI)z1' (EN) 

220 V=INT(RND(S)88+2) : SCORE=SCORE+A( A1, YI):PRINT FNLOCS(0,0)U 

SING "###4"; SCORE ;' (ND) 

230 PRINT FNLOC#(X1,YT)CHRS(190); :NEXT C:A2=INTCRND(2)489) : V2 

SINT(RNO(3)830): PRINT FNLOCS(X2,Y2); USING "#":V; :ACX2,Y2)3V:6 

070 150" (YH) 

240 

250 ‘ xk3 CONTROLE DU RECORD 

260 ' 

270 IF SCORE)RECORD THEN RECORD=SCORE OPEN "0", ,"A;RECORDI": 

PRINT #1,RECORD:CLOSE' (ZP) 

280 PRINT CHR$(27)"e"FN LOC$(32,12)"AVEC UN RECORD DE : "RECORD 
{FN LOC#(30,15)"TU VEUX VRAIMENT REJOUER (Qui ou (Non ?":' 
(BN) 

290 ‘ 

300 ‘ XXX ALORS ON S'EN REFAIT UNE PETITE? 

310 ‘ 

320 KS=UPPERS(INKEYS):IF K$="" THEN 290 ELSE IF K$="O" THEN 5 

0 ELSE IF K$="N" THEN PRINT CHR$(27)"E"CHRS(27)"H"; "ADIEU, ," 
‘END ELSE 290' (MF) 
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OFFRE EXCEPTIONNELLE | 
spéciale 


RUBANS POUR IMPRIMANTE || |est valable au 


01/02/88 


x QUALITE SUPERIEURE * au 31/03/88 













Après des mois de recherche, le CLUB de l'ECHO DU PCW est 
enfin en mesure de vous présenter des rubans imprimante de 
qualité exceptionnelle, d'une longévité et d'un noir intense 
comme vous ne les avez jamais vus! 


RUBAN PCW 8256/8512 


INCROYABLE! 
Par 3 Pièces: 65f l'unité 


MEMBRES DU CLUB ECHO: 60 * f l'UNITE! 


Délai de livraison maximum: 10 jours 





(*) Ce prix est exclusivement réservé aux membres du club 
ECHO DU PCW 
EE. ER. 
L. #% BON DE COMMANDE CLUB ECHO DU PCW *# 













" (France exclusivement) 

* NOM: PRENOM: 

a ADRESSE: 

L] 

= Je commande par la présente: X 3 Rubans à 195 F les 3 soit X 195 =... 

DS CR 7 X 3 Rubans à 180 F les 3 soit X 180F = (*) 

e j'ajoute 15 F pour les frais de port et d'emballage 

.(*) PRIX SPECIAL POUR LES MEMBRES DU CLUB ECHO DU PCW (Indiquez votre numéro: ) 

« Ci-joint mon règlement par[] MANDAT [] CHEQUE L] CCP Signature obligatoire: 
“Adressez votre règlement à l'ordre de LOGI'STICK éditions 





a Centre d'Affaires Paris Nord - "Le Bonaparte" - Boîte 49 - 93153 Le Blanc Mesnil cédex 


MAXALINUUTR: TTL 





Sauter n’est pas dur mais tomber juste n’est pas si évident. 


PARACHUTE 


LE JEU DE LA PESANT EUR... 





PAR OLIVIER RIMMEL 


100 À basic, le jeu du parachute est un grand classique 
du genre. Lancé d'un Boeing en plein vol, il s'agit de viser 
juste et d'ouvrir le parachute au bon moment pour se 
poser exactement là où il le faut. Pas si facile... 


Après avoir méthodiquement 
saisi et vérifié le programme, 
lancez-le par RUN 
<RETURN> pour que 
s'affiche le mode d'emploi. A 
la pression d’une touche le 
jeu démarre en faisant 
circuler un avion dans le ciel 
cathodique. 


En résumé c’est un jeu simple 
mais distrayant qui 
demandera un peu 
d'entraînement. 


| 


% 
\ 


De celui-ci s'échappe le 
parachutiste quand la barre 
espace est pressée. Tombant 
à pic, il n’ouvrira son 
parachute qu'à la seconde 
pression sur la barre 
d'espacement. C'est à ce 
stade que les calculs se font 
car le parachute provoque 
une dérive dont il faut tenir 
compte pour tomber au bon 


4 endroit. Figure 1 
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10 OPTION RUN' (MN) 
20 esc$=CHR$(27) :hone$=esc$+"H":c1s$=esc$+"E"" (27) 

30 DEF FN window$(oz,ls,h,b)=esc$+"{"+CHR$(32+0z)+CHR$(32+15) 
+CHR$(31+h)+CHR$(31+b)" (N4) 

40 DEF FNlocate(x,y)=esc#+"Y"+CHR#(324x)+CHR$(32+y)' CAD) 
50 DEF FN centre$(x$,L)=FNlocate$(1,(90-LENCx$))/2)+x$" (DF) 
60 cirall$=escé+"0"+CHR$(0)+c1s$thones" (05) 

70 nodeS0$sesc$+"y"+hones :nodeB0$sesc$+"x"+ homes! (63) 
80 invers ,on$sesc$+"p':invers off$sescé+"q"" (1V) 

90 curseur ,gau$sesc$+"D"' (46) 

140 curseur ,on$sescé+'e": curseur ,off#=esc$+"f"" (6V) 

110 ecran,off$=cirall$tesc$+CHR$(98)' (NF) 

120 ecran,on$=cirall$+esc$+CHR$(98)+CHR$(98)' (26) 

138 soulign,on$=escét"r"" (41) 

140 soulign,off$sescé+"u"" (5V) 

150 PRINT cirall$' (SH) 

160 FOR is@ TO l'aza+PEEK(646031+i):NEXT' (PU) 

170 PRINT curseur ,off$:G0SUB 930:RANDOMIZE a:s=0" (CV) 
180 GOSUB 719' (J5) 

198 qg=l' (BU) 

200 hh-l' (CD) 

210 IF h=0 THEN PRINT FNlocate$(1,1):m$:hh=37:h#37' (70) 
220 ' 

230 PRINT FNlocate$(1,H):' (42) 

240 PRINT h$' (17) 

250 dé=INKEYS' (KG) 

260 IF d$="" THEN 310' (R7) 

270 IF pv>18 THEN 310' (V0) 

280 IF sp=1 THEN op=1:60T0 300" (A4) 

290 sp=l' (BW) 

300 IF op=û THEN pv=l:ph=h+2,5" (AG) 

310 IF sp=0 THEN 560' (SD) 

320 IF OP=0 THEN pv=pvtl' (16) 

330 IF OP=1 THEN pvzpv+0,5:ph=ph-0,6" (LB) 

340 IF PV>24 OR PHÇI THEN 580 (SU) 

350 IF OP=1 THEN 450' (SC) 

360 PRINT FNlocate$(v,h0):' (8B) 

370 PRINT " "' (H7) 

380 v=pv' (DO) 

390 hozph' (EG) 

400 

410 PRINT FNlocate$(v,ho):' (87) 

420 PRINT c$' (12) 


430 ‘ 

440 GOTD 200' (62) 

450 ‘ 

464 PRINT FNlocate$(v,ho):' (80) 
470 PRINT " "' CH8) 

48 PRINT FNlocate$(v+],ho);' (AY) 
490 PRINT “ "' CHA) 


508 v=pv' (CU) 
514 ho=ph' (EA) 
520 PRINT FNlocate$(v,ho):' (89) 
534 PRINT p$' (IH) 
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540 PRINT FNlocate$(v+1,ho):' (AV) 
559 PRINT q$' CIK) 

560 ' 

570 GOTO 260' (H3) 

588 IF INT(HO+1,5)=PA OR INT(HO+1)=PA-1 DR INTCHO+2)=PA+] THE 
N 590 ELSE 630 ' (64) 

590 ‘ 

608 s=s+l' (D1) 

619 GOSUB 710' (J3) 

620 GOTD 290' (6Z) . 

630 FOR k=24 TO 25:PRINT FNlocate$(k,@)#STRING$(40," "):NEXT: 
PRINT FNlocate$(26 ,ho+1)+soulign,on$+CHR$(167)+soulign,off$+F 
Nlocate$(10,60)+"Score :"is' (VV) 

640 PRINT FNlocate$(12,60)+"Record :"::1F sr THEN res: PRINT 

r ELSE PRINT r' (FI) 

650 PRINT FNlocate$(15,60)+"Une autre ?":' (TF) 

660 dézINKEYS' (KL) 





670 IF d#="" THEN 660' (RK) 
680 IF d$="0" DR d$="o" THEN 5=0:G60T0 180' (MH) 

698 PRINT cirall$:curseur ,on$' (GD) 

700 END' (A6) 

710 ' 

720 PRINT cirall$' (SK) 

738 n$=" "' (B1) 

748 n$z"  "' (Bl) 

750 h$=CHR$(154)+CHR$(138)+CHR$(137)+" *!: (JL) 

760 z=0' (94) 

71170 cé=CHR$(32)+CHR$(188)' (07) 

780 p#aCHR$(150)+CHR$(154)+CHR$(156)' (60) 

790 q#=CHR$(32)+CHR$(188)' (ON) 

800 a$=CHR$(135)+CHR$C154)+CHRS(141)' (F2) 

810 h=37' (AW) 

820 pa=INT(RND(1)#31)+1' (28) 

830 PRINT FNlocate$(26,0)+soulign,on$+STRING$(40," ")+FNlocat 

e$(26,PA-1):' (BX) 

840 ‘ 

850 PRINT a$+soulign,off$' (6W) 

864 sp=0' (BY) 

870 op=0' (BV) 

880 phe=0' (BP) 

890 pvz0' (C4) 

908 ccz2' (B2) 

918 v=l' (90) 

928 RETURN' (HN) 

330 PRINT cirall$' (SN) 

940 PRINT "Essayez, en sautant d'un avion en vol, d'atteindre 
la cible au sol,"' (MD) 

954 PRINT "1° - SPACE , vous sautez de l'avion, "' (34) 

964 PRINT “2° - à nouveau SPACE, vous déployez votre parachut 

e est etes poussé à 45° par le vent, "' (J0) 

970 PRINT' (FH) 

988 PRINT "Suivez ces instructions pour réussir le saut ,"' (T 

2) 

990 PRINT' (FJ) 

1880 PRINT "Tapez une touche"' (C6) 

1010 a$='":VHILE a$="":a$=INKEYS:VEND' (M1) 

1926 RETURN' (IR) 











DISPONIBLE SUR PC ET COMPATIBLES 


ns 


ASTI 


POUR PCW 8256/8512 


| 















Tout 
sur votre personnalité. 


ASTRO 1 


e Carte thème de 
naissance 

e Carte du ciel de 
naissance avec maisons, 
signes, planètes et 
aspects majeurs 

e Interprétation du thème 
de naissance 

e Personnalité profonde et 
ambition 

° Fichier de plusieurs 


centaines de personnes... 
YA 











Sachez ce que l'avenir 


vous réserve... 
ASTRO 2 


Comme ASTRO 1 avec en 


plus : 


e Calcul et édition des 


révolutions solaires 
année par année 


° Carte du ciel de chaque 


Révolution solaire 


e Interprétation du 






potentiel de l’année : 
Amour, argent, travail, 


santé, etc. 


N 














La version complète 
des initiés. 
ASTRO 3 


Version incluant ASTRO 2 
+ ASTRO COUPLE avec en 
plus : 


e Révolutions lunaires 


e Directions Primaires 
{avec pôles des planètes) 


e Directions Progressées 
et Symboliques 


e Calcul du Maître de 
Nativité selon la méthode 
de Volguine. 

| oe) 


k 


4 


_ CHEZ VOTRE REVENDEUR AGREE DDI (1) 48.67.28.44+ 


Découvrez 
votre entourage. 


ASTRO COUPLE 


e Carte du ciel composite 






° Aspects planétaires 
e Comparaison des thèmes 


° Interprétation des 
relations du couple 
{plusieurs pages) 


y COUPLE 








Les disquettes thématiques de l'Echo reprennent tous les 
programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 













GESCALC = — GESTION DE es POKER FOLIES 
INVESTISSEMENT = Roue STOCK PACA EU AGENDA 
PATRIMOINE ATHEMYS MUSIC MACHINE 
BUSINESS SUPER GRAPHE MATHELEM 
PERT EVALUATION LOTO 
DEMO : AZERTY T.A.O. OTHELLO 
DEMO : TASWORD DEMO : AZERTY 
= ETIQUETTES DBASE AUTO- GSX.BAS 
Ne MULTIPLA.KEY En PROGRAMMATION ne à GSXDAO 
HE PO: STANDARD KEY BE “rm GAG ET SETKEYS REF PGRT T.A.O. 


DBASE.KEY PRINTER MAKER LES PLUS D'EXBASIC 
PROGI.CMD, PROG.CMD MONITEUR DE DISC SUPER GRAPHE 
MENU.CMD MATRIX DEMO : GRAPHIC 


LOCASC2 MAGIC 
TABLEAUX ASCII 
DEMO : GRAPHIC 


MAGIC 


DEMO : AZERTY 





Disponible chez votre revendeur habituel, vous pouvez aussi vous les procurer par correspondance à LOGI'STICK 
CAPN Le Bonaparte - Boîte 49 - 93153 LE BLANC MESNIL Cédex 























Mme. Melle. M. - Nom : : Prénom : nn LE 
Adresse : ____ us 

Code Postal : Ville : Pays : 

Commande par la présente les références suivantes : | | | | | 
au prix unitaire de 100*F TTC ou de 500*F pour les six références 

réglé par L_] CHEQUE [|] MANDAT | ] ccP Signature : 











is aGanne CREER LEREREET 


ATTENTION ce bon de commande tient lieu de facture. 
Conservez-en un en double pour votre comptabilité. 


(*) : FRANCE FRANCO DE PORT ET D'EMBALLAGE TVA 18,6% incluse de 15,68 FF 
ETRANGER OÙ DOM-TOM AJOUTER 7 F PAR DISQUETTE dans le prix TTC par disquette 


4021-7440] AU) 


Notez chacun des articles que vous avez lu et retournez ce questionnaire à 
L'ECHO. Chaque mois, l’auteur dont l'article a obtenu la meilleure moyenne 
se verra attribuer une prime de 1000 F et le lecteur tiré au sort recevra un 
magnifique cadeau-surprise. 

















Date d'expiration : L___ 
































































































ARTICLE PAGE  PASLU TRESMAUVAIS MAUVAIS MOYEN BON TRESBON NOTES 
CP/M 6 me ] Æ (n [] E #28120 
CLAVIER MAKER 12 El [ ste 120 
ETIC'FACILE 17 7 (EE Ü [1 [ ] .... /20 
SNAKY 21 C 0 dl I gi I Côs24120 
PARACHUTE 24 (El 0] Ce [] 0 0 ::52420 
CARTE BLANCHE 32 3 .... /20 NOTEZ BIEN 
L'EVASION TELEMATIQUE 39 [ ) El sen20 NOTEZ MAL 
TROUVE.BAS 43 0 Œ BG .... /20 MAIS 
À LA RECHERCHE DE L'OCTET PERDU (2) 47 ] ] se28120 VOTEZ 
Nom : Prénom : Age : 
Adresse : 
Code postal : Ville Profession : 





L'ECHO DU PCW N°16 




































ARRETER LE TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les programmes qui les composent sont 
ceux du numéro correspondant... Alors contre l'usure prématurée du 
clavier. une seule solution : Commandez-les ! 


ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de Juin froissé ? 
Comment pouvez-vous supportez cela ? Vous ne pouvez plus, alors d’Echo vous le dit... 
C'est la reliure qu’il vous faut ! Prévue pour classer une année complète soit onze 
numéros, elle garantit la longévité de votre collection et vous fera gagner un précieux 
temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro de nombreux 
sujets essentiels ont été abordés. L'information qui vous manque est probablement dans l’un 
d'entre eux. Alors ne cherchez plus vainement et complétez, sans attendre votre collection 
avec les sommaires des anciens numéros (N°1, 2, 3 et 6 sont au bord de l'épuisement...) 


ss 
e4 
= 
— 
es 
e 4 





Melle/Mme/M./Sté/Ass*-Nom : 
BON Adresse : 


D]: Code Postal : 


COMMANDE Dai ie 
* rayer la mention inutile 


COMMANDE PAR LA PRESENTE 




































































JOURNAL L'ECHO DU PCW (TVA 7%) TTC Nota : la TVA est incluse dans le prix TTC 
_— X ABONNEMENT DE ONZE NUMEROS À COMPTER DU NUMERO [17] SOIT …… x 290 (France) = ie VAS 1897 
a X ABONNEMENT DE ONZE NUMEROS A COMPTER DU NUMERO [17] SOIT …… x 450 (Etranger et Dom-Tom) = .......... F (TVA=29,44) 
ANCIENS NUMEROS L1[31415[6[7[819[o[t1[12[13]14[15] so …. x 30 (France) Ne F (TVA= 1,96) 
ANCIENS NUMEROS L'I3T4[5[6[7[81910[11[12[13[14[15] soir …. x 40 (Etranger et Dom-Tom) = ......... F (TVA= 2,62 
DISQUETTES ECHO DU PCW (TVA 18,6%) TIC Nota : la TVA est incluse dans le prix TTC 
et XABONNEMENTS DE ONZE DISQUETTES A COMPTER DU NUMERO [17]SOIT …… x 690 (France) = is F (TVA = 108,91 
de XABONNEMENTS DE ONZE DISQUETTES À COMPTER DU NUMERO [17] SOIT …… x 900 (Etranger et Dom-Tom) = .........F (TVA=141,15) 
DISQUETTES : [1213/4158 1617[819[0[1112/18/14118 [18 soIr …. x 80 (France) Re F (TVA= 12,55 
DiSQueTTEs : [11213[415/6[7[8[9[0[1f12/13/14[18 [18 sorr …. x 95 IEtranger et Dom-Tomi = F (TVA= 14,90) 
RELIURE ECHO DU PCW (TVA 18,6%) TTC Nota : la TVA est incluse dans le prix TTC 
Abe XRELIURE DE CLASSEMENT ANNUEL (CONTIENT 11 NUMEROS) SOIT …… x 80 (France) SNA T0) 
UT XRELIURE DE CLASSEMENT ANNUEL (CONTIENT 11 NUMEROS) SOIT …… x 95 (Etranger et Dom-Tom) = .......... F (TVA 14,90) 
Soit un TOTAL TTC. |de ......... F 

REGLEMENT A L'ORDRE DE LOGI'STICK PAR Ne deens: 

CT ManDAT C] cHEQUE E] cop L] visa/cARTE BLEUE CTTITITTIITITIIIJ 

Date d'expiration : l ( 





Tous ces prix sont nets Etranger : Réglement sur le montant hors-TVA par mandat international, Signature obligatoire : 
et incluent le port et Eurochèque [avec le numéro de la carte) ou carte VISA. Les taxes sur (celle des tuteurs 
’ la valeur ajoutée seront réglées aux postiers en vertu des dispositions pour nos lecteurs mineurs) 
l'emballage 

fiscales dans le pays destinataire et ce, sur la base du total hors-taxe 
en francs français. 


ATTENTION, CE BON DE COMMANDE TIENT LIEU DE FACTURE. 
CONSERVEZ-EN UN DOUBLE POUR VOTRE COMPTABILITÉ. 


A RETOURNER A L'ECHO DU PCW - LOGI'STICK Edition 
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Le N°10 
est enfin réimprimé 
et 
disponible. 





Le N°2 
est épuisé. 


HONTE 


AUX INCOMPLETS 


SPECIAL 
ECRAN 









SPECIAL 
LIGHT PEN 


SPECIAL 
MUSIQUE 





















































MCOMMENT CHOISIR BBASIC BB BASE INITIATION ill) BDBASEI 
SA COMPTA |} COMPATIBILITE CPC/PCW LES LIVRES DE DBASE INITIATION (111) 
LES CONFIDENCES DE MB DBASEI : INITIATION (1) LES TRUCS DE DBASE M CP/M : SETLST 
LOCOSCRIPT BB COMMENT CHOISIR SA M DES CADEAUX POUR PCW M TELEMATIQUE : L'EMULATION 
M BASIC : GSX - UN DEPART COMPTABILITE {111} I TRANSFORMER UN PCW MINITEL 
SAISISSANT LES CONFIDENCES DE LOCOSCRIPT EN SERVEUR MINITEL ILES CONFIDENCES DE LOCOSCRIPT 






BB PROGRAMME : MUSIC MACHINE 
BUSINESS 
BESSAI : COMPAGNON - MX550 - STRIKE FORCE 
HARRIER - PCW10 


Tous les programmes du numéro 5 
sont sur la disquette 5 


LES CONFIDENCES DE LOCOSCRIPT 
1 PROGRAMME : MATRIX - PATRIMOINE 

BB PROGRAMME : INVESTISSEMENT - AGENDA BESSAIS : TASWORD 8000 - MEDIACOMPTA 
BESSAIS : LA SOURIS - TOMAHAWXK - ROTATE MX330 - CLEF POUR PCW 


EXBASIC ET LES LIVRES DE MULTIPLAN É 
Tous les programmes du numéro 4 
Tous les programmes du numéro 3 | sont sur la disquette 4 
sont sur la disquette 3 = 


7 


1 PROGRAMME : POKER FOLIES 
M REPORTAGE: AMSTRAD SHOW 
MESSAIS : LIGHT PEN - 3D CLOCK CHESS 
BIORYTHMES - LIVRE JETSAM - AZERTY 


BB LANGAGE MACHINE INITIATION {11} 
B DOSSIER : L'ECRAN 









= Tous les programmes du numéro 1 sont sur la disquette 1 
+ Une démonstration gratuite d'AZERTY 


Xe 
















SPECIAL 
PLUS 


SPECIAL 
COMPTA 


SPECIAL 
JEUX 


















































































© MESSAI : SPOOL BESSAI : MAILING MESSAI : MEMENTO MB OBASEI 
M OBASE |! : LES PLUS #/ M DBASEI : LES LIVRES BILAN PLUS INITIATION (VII) 
INITIATION (IV) INITIATION (V) M DBASEI : INITIATION (VI) LES AVEUX DE MME 
BCP/M: LES PLUS - DELUGE BB COMMENT CHOISIR SA MB CP/M : TOUS LES LIVRES LACAILLE {1} 


M ANCIENS SOMMAIRES 
THEMATIQUES 
M L'EVASION TELEMATIQUE 
LES CONFIDENCES DE LOCOSCRIPT 
BB DELUGE ASCII (111) : MULTIPLAN 
I PROGRAMMES : GESCALC 


Tous les programmes du numéro 8 sont sur la dis 
quette 8 + Un programme inédit et gratuit ! 


BLIVRE : FICHIER SUR AMSTRAD 
M DELUGE ASCII (IV): RPED 
LES CONFIDENCES DE LOCOSCRIPT 
MB L'EVASION TELEMATIQUE 
M PROGRAMMES : MATHELEM 
MESSAI: GRAPHIC MAGIC - JOYSTICK 


Tous les programmes du numéro 9 sont sur la 
disquette 9 + Une démonstration gratuite de 
GRAPHIC MAGIC 


ASCII (1) 
M LOCOSCRIPT: LES CONFIDENCES 
LES PLUS 
M REPORTAGE: AMSTRAD SHOW 


BL'EVASION TELEMATIQUE 
M PROGRAMMES: GESTION DE STOCK - DAO ET GSX 
Tous les programmes du numéro 6 sont sur la 
disquette 6 + Une démonstration gratuite de 
TASWORD 8000 


COMPTABILITE (IV) 
M L'EVASION TELEMATIQUE 
M DELUGE ASCII {11} 
LES CONFIDENCES DE LOCOSCRIPT 
ILES BONS PLANS DE MULTIPLAN 


1 PROGRAMMES : PRINTER MAKER 3 - UNE COMPTA 


£ Tous les programmes du numéro 7 sont sur la 
disquette 7 + Une démonstration gratuite de 
















TASWORD 8000 








SPECIAL 
SALON 


SPECIAL 
TELECOM- 


SPECIAL 
PROGRAMMES 
















































MUNICATION 
M OBASEI : /} ESSAI ; TURBO MBESSAI : DTP-PAO BESSAI : DRIVE 5 1/4 
INITIATION (VIII) / EXPERT BASE VIDI MX-990, ASTRO SOURIS KEMPSTON 
1H COMMUNICATION #/ M DBASE |! : INITIATION (IX BINITIATION À CP/M (2) BINITIATION BASIC 13] 








BINITIATION DBASE (XI) 
BL'EVASION TELEMATIQUE 
BB REPORTAGE : AMSTRAD EXPO - 
PCW SHOW - BELGIQUE 
M PROGRAMME : LE JEU DE LA VIE 
TRIFICH + GESCALC2 - INVEST2 


BB L'EVASION TELEMATIQUE 

M DEMARRER EN CP/M 

BLOCOSCRIPT LE SECRET DES PAGES 
BINITIATION A L'INTELLIGENCE 
ARTIFICIELLE 

BB PROGRAMMES : MONITEUR DE DISC, LOGOGRAF 

LOTO, STICKER-MAKER, T.A.O 


a Tous les programmes du numéro 11 
sont sur la disquette 11 


INITIATION À DBASE IX) 
BINITIATION AU BASIC 11) 

BB INTRODUCTION A LA PAO 

1 PROGRAMMES : INVEST +, 
VERIFICATEUR B-12, QUIZZ, LOGOTRAM 


L'UNIVERS TELEMATIQUE - LES 
LIVRES - RS232 
BB L'EVASION TELEMATIQUE 
M DIVERS: DECOUPE BANDES - PCW VECU 
M CP/M: TOUT SUR LE CLAVIER 
M PROGRAMMES: PERT - RS/MAKER - OTHELLO 
MESSAIS: MODEM OLITEC - CALVACOM - MAIL232 


Tous les programmes du numéro 10 
sont sur la disquette 10 

































= Tous les programmes du numéro 13 
= sont sur la disquette 13 


Tous les programmes du numéro 12 
sont sur la disquette 12 





SPECIAL | 
TUYAUX 





SPECIAL : 
BANC D'ESSAI 









BANC DESSA 
PCW 9512, HERAKLIOS 
ASTRO FUTUR 

M DBASE || : À LA RECHERCHE 
M TOUT SUR LES RUBANS 


MESSAI : SCANNER /, 
SIGNWRITER : / 

M TELEMATIQUE : L'EVASION de / 
M REPORTAGE : E. MEZO N 
M ODBASE : INITIATION LA. (3) 








M PROGRAMME : LOCOSCRIPT, 7 BASIC : INITIATION (4 
BUDGET FAMILIAL M PROGRAMME CHRONOS 
M CARTE BLANCHE : VINCENT LEDOS MLES VOEUX DE L'ECHO 


MINITIATION AU BASIC (3) 
BCP/M : TOUT SUR LE CLAVIER 


Ë Tous les programmes du numéro 14 
= sont sur la disquette 14 


Tous les programmes du numéro 15 
sont sur la disquette 15 








l'écho 





L'ECHO DU PCW N°16 


LE SECRET DÜ BONHEUR 


LE CLUB ECHO 


MNRREOGART ET HUMPHRE Y 
MP 5 1/02/1989 CCE 6 74894 
{ll ne stricte 


nt personnere  SIGNATURE 
activites d 








Le CLUB, c'est l'assurance d'être 
N'attendez pas pour vous nscrir 
BON DE COMMANDE CLUB ares 2e _. 


AGED SÉCE 3 





Signature obligatoire : 








OS "REVENDELRS SPECRLISES 


L 





ESSONNE 








PROGRAMME BASIC 


| BLANCHE 


ÀA OLIVIER 


Ce mois-ci nous allons, comme nous l'avons déjà fait par le 

passé, faire une petite mise au point à propos de deux 

programmes. Un des deux avait déjà fait l’objet d’une amélioration, 

il s'agit d'INVEST + paru dans l’'ECHO n°12. L'autre, CHRONOS, date 

du mois dernier. Au sujet de celui-ci, j'avais fait quelques petites promesses 

sur des modules d'édition à venir. Comme vous pourrez le voir, chose promise, 
chose due. Mais en plus, les amateurs de graphiques statisticiens auront une belle surprise... 


C O QU IN 


L 











28 nouvelles Versic 
a INVEST + tr 
: 1 

disquette ECHO Ne 








Dans un premier temps, je vais 
m'adresser à ceux d’entre vous 
qui utilisent INVEST +. 


Comme vous avez dû le remarquer, dans ce 
programme, il est une partie dont l'exécution est 
beaucoup plus lente que les autres. Vous l’avez 
sûrement deviné, il s’agit du temps d’attente 
résultant du choix n°2 du Menu Calcul du 
programme, c'est-à-dire le calcul de la VAN 
(Valeur Actuelle Nette) ou NPV (Net Present 
Value}, du TIR ou TRI (Taux de Rendement 
Interne) et de l'IP (Indice de Profitabilité). 


Ceci est en fait, plus particulièrement, lié à la 
détermination du TRI. En effet, il n’est pas 
possible de trouver de manière analytique 
directe la valeur qui satisfait l'équation de 
détermination F{t). Il faut procéder de manière 
itérative en suivant un algorithme, c’est-à-dire 
une suite de calculs enchaînés, qui mène à la 
solution. Un des algorithmes de résolution (celui 
qui est utilisé dans le programme), consiste à 
tester toutes les valeurs successives du TRI 
comprises entre 1% et 50% {un TRI hors de ces 
bornes serait exceptionnel et hautement 
improbable) dans une boucle avec un incrément 
assez petit. Au début, les valeurs obtenues dans 
l'équation seront négatives, puis, petit à petit, 
elles se rapprocheront de zéro. Dès que le signe 
de l’expression sera devenu positif, cela 
signifiera que l’on vient de dépasser la valeur 
de TRI qui annule l'expression (F(t)= 0). Il est 
évident que la valeur de TRI donnée par 
l'expression lorsqu'elle devient positive est 
d'autant plus proche de la valeur réelle du TRI 
que l’incrément de la boucle de 1% à 50% est 
petit. Mais cette méthode présente l'inconvénient 
de nécessiter de nombreux calculs jusqu'à la 
racine de l'équation et, par conséquent, d’être 
caractérisée par une certaine lenteur. Pour cette 
raison, je vous propose, ce mois-ci, une autre 
méthode de recherche du TRI : la méthode par 
dichotomie. 


La méthode de résolution de l'équation par 
dichotomie conduit à un second algorithme de 


calcul plus performant que le premier. Je le 
répète, la première méthode est particulièrement 
simple dans son principe, mais, en terme 
d'exécution, elle est cependant assez lourde; 
l'obtention d’une solution très précise implique la 
fixation d'un pas d’incrémentation, ce qui 
multiplie les calculs et augmente le temps 
d'exécution. Ainsi, résoudre l'équation par 
dichotomie consiste à encadrer la valeur pour 
laquelle F(t)=0 par deux valeurs de départ 
minimale et maximale, t, et t,. On vérifie que la 
solution est comprise entre les 2 bornes t, et t, 
en comparant les signes de F{t;) et F(t,). Ces 
deux expressions, si elles encadrent la solution, 
sont de signes contraires, leur produit est donc 


négatif : F(t,) x Ft) < O. 


L'algorithme cherche donc à réduire à chaque 
étape l'intervalle (t;,t;) de moitié en prenant la 
moyenne arithmétique : 


t=(t +1)/2 


La nouvelle valeur F(t:) obtenue voit son signe 
comparé avec, par exemple, Ft). Si le signe du 
produit F(t,) x F{t;) est négatif, cela prouve 
que t, et t; encadrent la valeur recherchée. On 
continuera donc à restreindre de moitié 
l'intervalle qui contient la solution en substituant, 
à chaque fois, à l’une des deux bornes, la 
moyenne des deux bornes précédentes. De cette 
facon, la recherche est beaucoup plus 
rapidement convergente vers la solution. Pour 
vous donner une idée du gain de temps réalisé, 
la recherche est presque deux fois plus rapide. 


Voyons maintenant la procédure à suivre pour 
mettre le programme à jour. Cette procédure ne 
sera pas la même selon que vous commanderez 
la disquette programme ECHO n°16 ou selon 
que vous ferez la mise à jour ligne à ligne à 
partir des renseignements que je vais vous 
fournir. Si vous êtes dans le premier cas référez- 
vous à la PROCEDURE MAJ DISQUETTE, sinon 
référez-vous à la PROCEDURE MAJ LIGNES. 


Dans les deux cas, vous devrez d’abord lancer 


le BASIC puis taper LOAD ‘‘’INVEST +.BAS''. 
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PROGRAMME BASIC 





PROCEDURE MAJ DISQUETTE : 


C'est, bien sûr, la procédure la plus simple car 
je vous ai mâché le travail : 


1. Tapez DELETE 1850-1950 
2. Tapez MERGE ‘‘DICHOTOM.BAS"" 
8. C'est tout. 


PROCEDURE MAJ LIGNES : 


Je vous demanderai, si vous êtes dans ce cas, 
de suivre scrupuleusement mes indications car 
une ‘’fausse manip" pourrait très bien passer 
inaperçue dans un premier temps et nécessiter 
de longs moments de recherche par la suite. 


1. Taper EDIT 1940 
Positionnez-vous sur le ‘‘1‘ de 1940 et 
appuyez 4 fois sur <DEL—> 
Remplacez 1940 par 2625 
Validez la ligne avec <RETURN> 
(est-il besoin de le préciser ?) 
2. Tapez DELETE 1850-1950 
8. Tapez AUTO 1850,5 
Saisissez les lignes 1850 à 1930 suivantes : 


1850 A1=0.01:B1=0.5:TOP1=0:TOP2=0 

1855 FOR J=1TON 

1860 TOP1=TOP1+CALC(,K+5)/(1+A1)tJ 

1865 TOP2=TOP2+CALC(,K+5)/(1+B1)!J 

1870 NEXT J 

1875 U=FNTRI(TOP1,A1,N):V =FNTRI(TOP2,B1,N) 

1880 IF UxV > 0 THEN GOSUB 2625:RETURN 

1885 WHILE ( ABS(BI-Al) > 0.001) 

1890 UV=(A1+B1)/2:TOP3=0 

1895 FOR J=1TON 

1900 TOP3=TOP3+CALC(,K+5)/(1+UV)!tJ 

1905 NEXT J 

1910 W=FNTRI(TOP3,UV,N) 

1915 IF ABS(W)<=0.001 THEN GOSUB 2625:RETURN 

1920 IF UxW < 0 THEN B1=UV : V=W ELSE 
Al=UV : U=W 

1925 WEND 

1930 IF TOP2=0 THEN GOSUB 2625:RETURN 
ELSE UV =UV+100 : TRI(K)=UV 


4. Insérez la ligne 125 
125 DEF FNTRI(TOP,X,Y)= TOP -(MON-VR/((1+X)'Y)) 
5. Fin de procédure. 


Voilà, il ne vous reste plus qu’à vérifier que les 
modifications ont bien été prises en compte en 
faisant un petit LIST du programme, puis un 
petit RUN. Ce dernier a pour but de vérifier que 
le programme tourne bien avant que vous ne le 
sauvegardiez sur disquette. Surtout si vous 
comptez le sauvegarder sous le même nom. Une 
mauvaise version viendrait alors écraser un 
programme qui tournait admirablement. 


A ce point là de mon commentaire, je voudrais 
faire une remarque de la plus haute importance. 
Il'est essentiel que vous fassiez les modifications 
à partir du listing du programme paru dans 
l'ECHO n°12. Ceci pour la bonne raison qu'il 
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faut qu’il y ait concordance parfaite entre les 
numéros de lignes du programme original et les 
numéros de lignes que je vous ai demandé 
d'ajouter et d'enlever. À ce propos, les 
modifications proposées dans l’'ECHO n°13 ne 
peuvent en aucun cas vous poser de problèmes 
si vous avez respecté les numéros de lignes. 


Les mêmes remarques sont toutes aussi valables 
en ce qui concerne les modifications de 
CHRONOS que je vous avais promises le mois 
dernier. 


Pour tous ceux qui auront eu le temps 
d'apprécier CHRONOS à sa juste valeur, je 
propose ce mois-ci quelques petites 
améliorations qui raviront plus d’un d’entre 
vous. Mais voyons sans plus attendre ce en quoi 


ces dernières consistent. 


LE 


Me 


Je vais d’abord vous offrir le moyen de lister les 
résultats de calculs obtenus par les options 
Régression Linéaire, Moyennes mobiles et 
Dessaisonnalisation. Vous pouvez voir les états 
de sortie qu'autoriseront les modules rajoutés 
figures 1 à 3. 





Vous devez dans un premier temps taper les 
programmes : ‘’CHREGLI.BAS'", 
‘*CHMOYMOB.BAS"'' et ‘'CHDESSAI.BAS"'‘ 


Une fois ces programmes sauvegardés, passons 
à leurs manipulations {je vous donnerai les 
mêmes conseils que précédemment, prudence est 
mère de sûreté). Voici la procédure à suivre : 

- Commencez par faire LOAD ‘’CHRONOS.BAS"' 


- Insérez les lignes suivantes : 


3015 PRINT FNP$ Voulez-vous une sortie des résultats sur l'imprimante ? [O/N)'',29); 

3016 I$=INPUTS(1} 

3017 IF UPPERS(IS)= ‘O'' THEN PRINT FNPS(''IMPRESSION EN COURS'',28);EFP$;: 
IMPR = 1 ELSE IMPR= 0 

3018 RETURN 


puis nous allons procéder à l'insertion de ces trois 
modules : 


INSERTION DU MODULE DE LISTING 
DE LA REGRESSION LINEAIRE : 


. Tapez EDIT 1260 
Le GOSUB 2980 doit être remplacé par un 
GOSUB 3015 


. Tapez RENUM 1440,1270 


. Tapez la ligne : 
1265 IF IMPR=0 THEN 1440 


. Tapez MERGE ‘'CHREGLI.BAS"' 


— 


© D 


Re 


PROGRAMME BASIC 





ÉRSYYE RÉGRESSION LINEAIRE XY###t 


aquation de regression y = tÜHE x T +87,873 


icient de detersination = 3,5ÿ 





coefficient de correlation = ÿ,}871684 


ecart-type de l'estimation = 1346564 





Figure 1 


KÉERXK MOYENNES MOBILES DE LA SERIE #KFHEE 








FÉERE SERIE DESSAISONNALISEE sttttt 


Figure 3 








ie 
# 





RERCRMEEUE 
INSERTION DU MODULE DE LISTING 
DES MOYENNES MOBILES : 


1. Tapez EDIT 1700 
Le GOSUB 3150 doit être remplacé par 
un GOSUB 3190 


2. Tapez RENUM 1820,1710 


8. Tapez la ligne : 
1705 IF IMPR=0 THEN 1820 


4. Tapez MERGE ‘‘CHMOYMOB.BAS": 

FR RSR Ne 
sd 
INSERTION DU MODULE DE LISTING 
: DES VALEURS DESSAISONNALISEES : 


- ]. Tapez EDIT 2300 

: Le GOSUB 3260 doit être remplacé par 
un GOSUB 3300 

2. Tapez RENUM 2420,2310 

 3.Tapez la ligne: 

“ 2305 IF IMPR=0 THEN 2420 

+ 4. Tapez MERGE ‘‘CHDESSAI.BAS"‘‘ 

EE 


“ 





. 







EE 








Pour le principe, je vous demanderai de vérifier 
que les (abs ont bien été insérées aux bons 
endroits en faisant un LIST du programme. À 
titre d’information ou de contrôle supplémen- 
taire, les GOSUB des lignes 1260, 1700 et 
2300 doivent ordonner un branchement au sous- 
programme situé des lignes 3410 à 3440 qui 
correspondent aux lignes 3015 à 3018 insérées 
plus haut. Enfin, n'oubliez pas de sauvegarder 
le programme par : 


SAVE ‘’CHRONOS.BAS"‘ 


L'autre surprise que je vous ai réservée, à 
propos donc de CHRONOS, ravira sans aucun 
doute les heureux possesseurs d'EXBASIC. Si 
quelques-uns d’entre vous ne se sentent pas 
concernés, je rappelle qu'il n’est jamais trop 
tard pour combler une lacune. Comme tout un 
chacun le sait, EXBASIC rajoute au BASIC 
Mallard des fonctions graphiques qui sont 
somme toute, ma foi, bien utiles ; tellement utiles 
qu’elles vont nous servir à tracer un graphe se 
rapportant à l'étude d’une série chronologique. 
Ce graphe fera figurer le nuage de points 
relatifs aux mesures effectuées sur la série 
étudiée, ainsi que la droite de corrélation 
linéaire dont l'équation aura été déterminée lors 
du calcul de la régression linéaire. 


Le sepre dont vous pouvez voir deux 
exemples, figures n°4 et 5, est caractérisé par 
l'échelle des valeurs en ordonnée et par l’échelle 
des temps en abscisse. 


L'échelle des valeurs, pour des raisons de 
lisibilité, ne comporte que trois valeurs se 
rapportant à la série mesurée : la plus grande et 
la plus petite qui représentent les bornes de 
l'intervalle de mesure, ainsi qu’une valeur 
médiane qui n’a pas forcément été mesurée. 


L'échelle des temps comporte, quant à elle, 10 
valeurs au maximum. C'est sur cet axe que sont 
représentées les périodes. Quand leur nombre 
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est inférieur ou égal à 10, les périodes avec 
leurs numéros respectifs sont toutes représentées 
sur l’axe (figure n°4). Au-delà, toujours pour 
des raisons de lisibilité, leurs numéros ne sont 
pas représentés. Ceux qui figurent alors sont à 
multiplier par le coefficient multiplicateur 
{indiqué sur la ligne du dessous) pour obtenir 
une correspondance entre la graduation en 
question et le vrai numéro de période au même 
endroit (l'exemple de la figure n°5 met en 
évidence cet état de fait : la série a été mesurée 
sur 60 périodes). 

Voyons, maintenant, comment insérer 
le module de tracé du graphe. 

1 - Commencez d’abord par vous assurer que 
l'utilitaire résident SPOOL n’est pas en mémoire 
avant de lancer EXBASIC, cela risquerait de 
vous occasionner quelques surprises. En effet, 
ces deux programmes résidents ne peuvent 
cohabiter : lancés l’un derrière l’autre, ils 
plantent votre PCW chéri et la seule solution est 


alors de faire le traditionnel 
<SHIFT> + <EXTRA> + <EXIT>. 


2 - Lancez EXBASIC à partir de CP/M donc 
3 - Tapez le programme ‘’CHGRAPHE.BAS"' 
et sauvegardez-le. 


Les barres \, que vous pouvez voir à la ligne 
2590, sont à remplacer, lors de la frappe du 
Le Dee UE 
listing, par ‘‘i‘’, qui est le caractère obtenu à 
Éd Sae 
partir de la combinaison des touches 
<EXTRA> + <8>. En effet, le caractère ‘’i’’ ne 
passe pas à l'imprimante. 


Bien entendu, si vous avez la disquette ECHO 
n°16, passez directement au point 4. 


4 - Tapez LOAD ‘’CHRONOS.BAS"'' 

5 - Tapez RENUM 2920,2560 

6 - Tapez MERGE ‘'CHGRAPHE.BAS"'' 

7 - Tapez EDIT 230 pour modifier la ligne 230 : 
230 DATA 3, ''PRINCIPAL'',28,59, Saisie, Calculs, Abandon 
comme ceci : 

230 DATA 4, ''PRINCIPAL'',28,59, Saisie, Calculs, Graphe, Abandon 
8 - Tapez EDIT 240 pour modifier la ligne 240 : 
240 GOSUB 3840: ON RP GOSUB 280,820,3820: GOTO 220 
comme ceci : 

240 GOSUB 3840: ON RP GOSUB 280,820,2570,3820: GOTO 220 


Les opérations 7 et 8 ont pour but d'intégrer l'option 
GRAPHE dans le Menu Général (Cf. Figure n°6). 


Voilà, que ceux qui n’ont pas EXBASIC me 

ardonnent, mais, jusqu'à présent, c'est encore 
F meilleur moyen pour faire du graphisme en 
BASIC sur notre do PCW. 


Je vous laisse maintenant apprécier le résultat et 
avant de nous quitter, un dernier petit conseil : 
respectez les numéros de lignes. 


Et surtout, pensez à sauvegarder. 


A bientôt. 
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Î 8 3 4 S 6 7 8 9 16 
LÉ Figure 5 
€ EXIT ) pour Quitter 
Se ee er me en ae 
CHRONOS : AHALYSE DES SERIES CHRONOLOCIQUES @ L'Echo du PCH 1987 
x MENU PRINCIPAL # 
Figure 6 


MAXOL LIMIT ET e 






ATTENTION ! 
Les codes situés en fin de lignes sont destinés à 
vous permettre de vérifier la justesse de votre sai- 
sie. Il sont représentés par une apostrophe sui- 
pes de deux codes entre parenthèses. Exemple : 
‘ ). 

Ne les saisissez pas car ils n'interviennent jamais 
dans le déroulement du programme mais ils sont 
générés par le vérificateur B-12+ publié dans l'Echo 
N°14 avec les explications relatives à son emploi. 
Pour saisir le programme de cet article, reportez- 
vous à la note située en dernière page. 











ZI ---"""-" AFFICHAGE DES RESULTATS -------""-- 
2320 LPRINT CHRSCIS):VIDTH LPRINT 2SS:LPRINT "tt444x SERIE DE 
SSAISONNALISEE 344244" ;LPRINT:LPRINT' (KE) 

2330 LPRINT SPACES(15) ;STRINBS(67, "=")" (OP) 

2340 LPRINT TAB(25)*T" :SPACES( 14); "Y": SPACES (10) ; "SERIE DESAI 
SE UYT) 

2350 LPRINT SPACES(15) ;STRINGS(67, "=")' (DR) 

2360 FOR 1=1 TO NBPER' (V3) 

2370  LPRINT TAB(25);' (VI) 

2380 LPRINT USING "##";H(1);" (71) 

2390  LPRINT USING SPACES(7)+"#R###NAEH" ;YCI):DESAIS(I)" € 
08) 

2400 NEXT l' (GE) 

2410 LPRINT CHRS(I8)' (UZ) 


2560 '---------- AFFICHAGE DU NUAGE ET DE LA DROITE --------- 

2570 IF 5=0 THEN PRINT VN$:FNP$(" Graphe inpossible sans sais 
ie ",28):VF$:BEEPS:: GOSUB 3750 :RETURN 'gosub 3750 = appel de 
la ligne 3000 du listing original (Echo n°15)' (10) 

2580 DEF FNAR(X,P)=INT(X#10"P+0,5)/10*P' (RK) 

2590 DRAWS=" ORAN,  :MOVE$=" MOVE,“ :PLOT$=" ÆPLOT ,"' (KY) 

2600 DEF FNNUMS(X)=MIDS(STR$CK),2,8)' (KS) 

2619 MAXX=NBPER' (QJ) 

2620 MAXY=Q :MINV=1E+15" (OX) 

2630 FOR I=1 TO NBPER' (43) 

2640 MAXY=MAX( FNARCY(I),2) , MAXY D:MINY=MIN( FNARCY(I),2) , 
MINY )' CXA) 

2650 NEXT I' (GL) 

2660 PRINT CLS$:' (PO) 

2670 IF MAXYCOMINY THEN 2720 ELSE PRINT FNC$(13,10):"LES DONN 

EES SONT TOUTES SENSIBLEMENT DE LA MEME VALEUR"' (00) 

2680 PRINT FNC#(16,12); "COEFFICIENT B=0 : COEFFICIENT DE CORR 
ELATION = 1"' (9B) 

2690 PRINT FNC#(17,14);"LA DROITE DE CORRELATION EST D'EQUATI 
ON Y =";A' (68) 

2709 PRINT FNC#(15,16);"CE QUI SIGNIFIE QU'ELLE EST INDEPENDA 
NTE OU TEMPS"' (EZ) 

2710 PRINT FNC$(19,18);"CE N'EST DONC PAS UNE SERIE CHRONOLOG 
IQUE":60T0 2890' (H3) 

2720 PRINT MOVES,64,32:DRAUS,64,182,DRAW$,639,182:' (75) 

2730 V(T)=MAXY:VC2)=CMAXY#MINY)/2:VC3)=MINY'MULTENBPER/10' (S 
7) 

2740 FOR 1=0 TO 1:PRINT PLOTS,62+1,33:PLOTS$,62+1,107:PLOTS,62 
+I,I8I:NEXT [' (A2) 

2750 PRINT FNC$(1,20):FNNUM$(V(3))' (HO) 

2760 PRINT FNC$(1,11):FNNUMS$CV(2))' (HO) 

2770 PRINT FNC$(1,2):FNNUM$(V(1))' (F0) 

2780 HY=148/CHAXY-MINY):HX=573/(MAXX-1)' (T2) 

2790 PI=66:Q1=FNARCI81-CEY(1)-V(3))#HY,0):IF EYCT)€MINY THEN 
PI=FNARC 66+(C(NINY-A)/B)-1)XHX , @ ):Q1=181' (EV) 

2800 P2=639:Q2=FNAR(181-CEY(NBPER)-V(3))#HY,0):IF EYCNBPER)<M 
INY THEN P2=FNAR( 66+(((MINY-A)/B)-1)#HX , @ ):Q2=181' (VD) 
2819 IF NBPER>9 THEN FOR I=1 TO 9:X=FNAR(66+(IXMULT-1)#HX,0): 










FOR J=183 TO 186:PRINT PLOTS,K,J::NEXT J:PRINT FNCSCFNAR(X/8- 
8,26,0)-1,23):1:NENT L:FOR J=183 TO 186:PRINT PLOTS,639,J: :NE 
XT J:PRINT FNC#(79,23);"10" PRINT FNCS (78,24): CHRS(26)" (x"MUL 
7")"" (30) 

2820 FOR I=1 TO NBPER' (W4) 

2830 U=FNAR( 66+(I-1)HX , 0 )' (3J) 

2840 Y=FNARC 181-CYCI)-V(3))#HY , @ )' (ED) 

2850 IF NBPERCIO THEN FOR J=183 TO 186:PRINT PLOTS,X,J: :NEXT 
J:IF JENBPER THEN PRINT FNCSCFNAR(X/8-0,26,0)-1,23):1 ELSE P 
RINT FNCS(79, 23) :CHRS(4B+NBPER)' (52) 

2860 PRINT PLOTS,X,V::1F NBPERD9 THEN PRINT PLOTS,K, 183:PLOT 
s,1,184:' (7V) 

2878 NEXT L' (GP) 

2880 PRINT MOVES,P1,Q1:DRAUS,P2,02:' (M1) 

2898 PRINT FNCS(31,26):"< EXIT > pour Quitter" :' (2U) 

2900 WS#=INPUT#(1):1F ASC(WS)C)27 THEN 2900! (2) 

2918 RETURN! (J4) 


171Q EDITION DES MOVENNES MOBILES ----------"-- 
1720 LPRINT CHR$CIS):VIDTH LPRINT 2S5:LPRINT “HX#tt MOYENNES 
MOBILES DE LA SERIE #ét#kt":LPRINT:LPRINT' (QU) 

1730 LPRINT SPACES(13):STRING$ (67, "=")' (0Q) 

1748 LPRINT TAB(20):"T"4SPACES(14)+"Y"#SPACES(11)+"MDY, MOBIL 
E"4SPACES(10)+" ERREUR"! (DK) 

1780 LPRINT SPACES(13) :STRINGS (67, =") (OS) 

1760 FOR 1=7 TO NBPER-6' (23) 

1770  LPRINT TAB(20):' (VH) 

1780  LPRINT USING "##":K(I):" (7L) 

1790  LPRINT USING SPACES(7)+"#H###HB# HA: VOL): MM): YCD)-H 
H(D):" (P6) 

1880 NEXT l' (6H) 

1810 LPRINT CHR#(18)' (V2) 


125 DEF FNTRI(TOP,X,Y)=TOP-CMON-VR/((1#X)*Y))' (5C) 





1850 A1=0,01:B1=0,5:T0P1=0:TOP2=0' (60) 

1855 FOR J=1 TO N' (03) 

1860 TOPI=TOPI+CALC(J,K+5)/(1+A1)*J" (KQ) 

1865 TOP2=TOP2+CALC(J,K+5)/(1+B1)*J" (KY) 

1870 NEXT J' (GP) 

1875 U=FNTRI(TOPI A1 ,N):V=FNTRI(TOP2,BI,N)' (11) 

1880 IF UXV > 0 THEN GOSUB 2625:RETURN' (MJ) 

1885 VHILE ( ABS(BI-A1) } 0,081 )' (6U) 

1899 UV=CA1+B1)/2:TOP3=0" (1L) 

1895 FOR J=1 TO N' (07) 

1909 TOP3=TOP3+#CALC(J,K+5)/(1+UV)*J' (MA) 

1905 NEXT J' (60) 

1919 V=FNTRIC(TOP3,UV,N)' (44) 

1915 IF ABS(W) <= 0,001 THEN GOSUB 2625:RETURN' (YS) 
1920 IF UKW © @ THEN BI=UV : V=U ELSE A1=UV : U=W' (YP) 
1925 VWEND' (E7) 


1930 IF TOP2=0 THEN 60SUB 2625:RETURN ELSE UV=UVX100 : TRI 
K)=UV' (WA) 

2625 PRINT CLS2$,BEEP$;FNP#("1 # > TRI, ) 50 4",12):FNP 
$('Taux de Rendement Interne Inconcevable !",15):FNP$(M1$+M2$ 
,20):60SUB 3720:RII=1:RETURN' (F3) 


SD 
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LECTEURS DE L'ECHO, 


Pour nous permettre de nous consacrer efficacement à votre revue préférée, 
nous arrêtons toutes ventes en nos locaux... 


Maintenant, les produits ECHO DU PCW tels que : 
- RELIURES 
- ANCIENS NUMEROS 
- DISQUETTES ECHO 
- DISQUETTES THEMATIQUES 
sont disponibles chez 


LOISITECH 
Centre Commercial Terminal 93 - 93 MONTREUIL - M° Mairie de Montreuil 


FAITES VOUS CONNAITRE !!! 


Programmeurs indépendants ou sociétés de services informatiques, 
faites-vous connaître auprès du service entreprise 
de l'ECHO DU-PCW. 


Déjà plus de 1000 sociétés inscrites brûlent de vous rencontrer... 


Un seul numéro : 


(1) 48.65.44.55 
Poste 3623 





LA CONQUETE CONTINUE... 
IMPRIMEZ EN COULEURS ! !! 


Les rubans en couleurs, longue durée, sont arrivés... 


Mais aussi, des rubans noirs longue durée pour le 9512... 


Chez votre revendeur conquérant 
Pour le connaître appelez D.D.I au : 


(1) 48.67.28.44+ 


A VOTE ! 

Il a gagné le bougre... Marc HERMION, dit E= MC3, 
gagne l'incroyable mais véritable prime de 
100.000 centimes de nos nouveaux francs pour son 
banc d’essai sur le PCW 9512. C’est d’autant plus 
remarquable que sous le joug de sa légendaire 
modestie il avait même oublié de signer son article 
et que l’armée de têtes en l’air qui s'occupe de 
votre journal préféré ne s’en est même pas 

apercu !1!1! 





ANEURrS 


Après fouettage, les têtes en l’air ont dédommagé 
la victime par un sambpiternel : ‘‘Pardonnez-nous 
frère, nous ne sommes que de pôvres pécheurs...’’ 


ENMANLEL FROCHE 
MARE HEIN I ON 
PATRICE BI HAN 
= SERMRIN DELALANDE 
DORRRHHRHHRHHRRRERENHRIRENENRHRENRENREERERARAERERRAREIHAURENRERENRHEURENNREUTUEUHRERHEHERARHNAEEREUNNARENDNNHEUNLEHEUNEUR 


CLIVIERS ECCOLI 
IORCAN UESSON 


MARE HEPMiI ON 
Di LErRS 


PIERRE PATO 


RANGS 


Vraiment on croit rêver ! 


À PROPOS D'ASTRO... 


Il apparaît après réception de plusieurs courriers d'utilisateurs mécontents 
que les commentaires rapportés par JORDAN WESSON dans son banc 
d'essai d'ASTRO aient provoqué quelques tumultes au sujet desquels je suis 
en ce jour chargé de mettre un terme (non, ne me faites pas dire romain. 
trop tard je l'ai dit !) : 


Enoncçons les faits : 


1. Jordan WESSON révèle dans son article que le logiciel ASTRO est un 
investissement rentable et qu’en vendant 50 F le thème il est vite amorti. 


HISTORAMNMES 


Consulté, Jordan répond que la version qu'il a testée n’était encore qu’un 

[1 g . . . + . . . La 2 
prototype et qu'aucune mention particulière des éditeurs ne lui avait été 
transmise. 


MARE HERAMI ON 8 SriV'E LAHAHE À 33 BOROEALUH 


RE RS 
nee ne nee aseseseted 
ml tata sereseresed 

908 900 20 40e Qu SUR 20 4e 08 ut Du Du tue Put nt ut Au tnt ut ut dut 

Dt-20t ut Dune un ut ut mt nt nt ut nt jet nt nt ut dut 
DR 20 2 ut ut ut ut ut ut tu ut ut ut ut 40 ut ut 

20020 qu -20t 2e ut ut ut dut ut Put tnt nt 

9m 20 put ut tnt ut ut nt ut ut tu ut ut 


2. Le logiciel est enfin commercialisé avec un bandeau empêchant son 
ouverture, signalant qu’il ne pourra faire l’objet d'aucune commercialisation 
sans l'accord formel des éditeurs. 

C'est à ce stade que le bât blesse. 


NOTES 
1. 14 


3. Après enquête j'apprends : Que la version utilisable pour le commerce 
est une version licence qui ne pourra être obtenue qu'après accord avec 
l’auteur (Partenaire ASTRAL) qui s'oppose formellement à ce que les 
versions vendues dans le commerce servent à une distribution commerciale. 
C'est son droit, encore fallait-il le savoir au moment où le logiciel était 
confié à un testeur patenté (mais très tenté tout de même) par la rédaction. 


>>>>>>> 


PRES 
6 
1e 
ei 
ec 
ec 
3e 
36 
oc 
as 


>>> 


En conclusion : On peut donc penser que Partenaire ASTRAL est méchant et 
nous lui avons fait part des avis reçus. Conscient du problème il nous a fait 
parvenir les explications de sa formule de licence qui confirme qu'ASTRO 
reste une affaire rentable et qu’il s’agit simplement d’un problème de 
versions. 


Publication du détail (très succinct d’ailleurs) le mois prochain, afin que la 
lumière sur ce commentaire malheureux soit définitivement faite. 


PATIÈQLES 
CHPON0OS 
HEPARL I 0S 
PO Sie 
INITIATION BASIC (9) 
ELASI ON TELEMATI QUE 


ASTAS FUTUR 
TOUT SUR LES PAUBANS 


INTERRAÈTIF 


ESSA 1! 


MOrENNE GENERALE 
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ESSAt 


VERSION LICENCIEUSE 


Je termine sur une incitation à la commercialisation des meilleurs parcours 
de SNAKY le serpent fou dont je n'ai, pour le moment, pu obtenir plus de 
1120 points. Avis aux amateurs. 


A LA PECRHERCHE DE L'OCTET Li] 
Nos gagnants du mois... 


à 
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# 
# 
nu 
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. TELEMATIQUE 


L'EVASION 
TELEMATIQUE: 


LE JOURNAL CYCLIQUE : 


L'INFORMATION PERMANENTE SANS CONTRAINTE 








?AR GERMAIN DELALANDE 


Le journal cyclique est au minitel ce que 
les journaux quotidiens, magazines et 
autres affiches sont au support papier. 

Son propos est d'informer le passant 

à travers plusieurs pages affichées 

sur un minitel sans interruption 

et sans intervention. Mais avant 

de décrire en détail son fonctionnement, 
prenons quelques exemples. 


L'INFORMATION NOCTURNE. 


Il'est onze heures du soir, vous parcourez la rue 
commerçante de votre ville ou de votre village ; 
soudain, dans la pénombre de tous les 
commerces fermés, vous apercevez une lueur 
mouvante derrière une vitrine ; pas de doute, il 
s'agit de notre bon vieux minitel qui distille 
quelques informations sur l’activité du commerce 
en question : ses produits et tarifs, ses 
promotions du mois, ses heures d'ouverture et 
quelques pages graphiques pour égayer le tout; 
les pages défilent avec une petite temporisation 
entre deux pages, vous laissant le temps de la 
consultation. Après quelques minutes 
d'étonnement devant la vitrine, vous repartez 
gaiement, vous disant que cette petite lueur dans 
la nuit avait le mérite non seulement d’être 
originale, mais aussi de vous avoir fait découvrir 
un commerce devant lequel vous passiez 
régulièrement sans même l'avoir remarqué. 


L'INFORMATION DANS LES 
HALL D'ENTREPRISE 


Le lendemain matin, vous vous rendez dans 
l'entreprise TYREL pour votre premier entretien 
d'embauche ; le directeur du personnel étant 


occupé, on vous fait patienter dix minutes dans 
le hall d'accueil ; dix minutes fructueuses dans la 
mesure où un minitel placé dans le hall affiche 
sans interruption et sans intervention manuelle de 
nombreuses informations sur la société TYREL : 
ses produits, sa technologie, son organisation, 
l’activité de ses usines en France, dix minutes 
fertiles qui feront de vous quelqu'un de mieux 
informé sur TYREL et un meilleur interlocuteur 
pour le chef du personnel. 


L'INFORMATION SUR LES 
STANDS D'EXPOSITION 


Quel meilleur outil pour étoffer un stand que d'y 
placer un minitel affichant en permanence le 
descriptif des produits ou prestations que vous 
présentez. Le minitel, avec ses pages-écran en 
perpétuel mouvement, attire systématiquement 
l'attention du passant qui aurait pu passer à 
côté du stand sans même le remarquer. 


LA MISE EN PLACE D'UN 
JOURNAL CYCLIQUE 


Prenez un PCW {un simple 8256 fait l’affaire..), 
dotez-le d’une interface RS232 (boîtier connecté 
sur le port d'extension arrière du PCW), reliez 
votre minitel à l'interface par un simple cordon 
minitel. 


L'installation matérielle est terminée. Il est 
préférable que le cordon minitel soit le plus long 
possible (10 mètres environ) afin de pouvoir 
placer le minitel à l'endroit optimal. 


L'implantation du service lui-même nécessite 
l’utilisation de deux modules logiciels intégrés 


dans le Logiciel Serveur SYNEA: E] 
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TELEMATIQUE - 
COMMUNICATION 








1) Composer des écrans d'informations destinés 
à s'afficher sur l'écran du minitel. Le composeur 
d'écran de SYNEA permet de composer 
simplement de nombreuses pages minitel. La 
visualisation du travail accompli se fait avec le 
clavier du PCW, sur l'écran du minitel connecté 
au PCW, avec un écran d'aide à la composition 
affiché en permanence sur l’écran du PCW. 
Toutes les caractéristiques d'affichage du minitel 
sont disponibles : couleurs, soulignement, 

4 tailles de caractère, graphisme. (figure 2) 


Chaque page composée est sauvegardée dans 
un fichier sur disquette ; elle est repérée par le 
nom donné au fichier lors de la sauvegarde. 


2) Définir la liste et l’ordre d'affichage des 
pages composées et la 
durée d'affichage de 
chacune des pages. 
C'est l’objet du module 
JOURNAL de SYNEA. 
(figure 3) 


PC 


RS-c NINITIL 


Figure 3 — 


liste des écrans 
affichés 





t Figure 1 
schéma de branchement 


+ Figure 2 


écran d’aide à la composition 
d'écran minitel 


SERVEUR 
VILEUTEX 
VNEA 


TT 


COMPOSITION D'ECRAN MINITEL 
AREURESCENCE DES ECRANS 
MNEMONIQUES D'ECRANS 
FUITES AUX LETTRES 


a 


GESTION"DES COMMANDES 


DATE DU JOUR 01/01/87 
CONFIGURATION DISQUES : Ma 
VERSION MUDEM MINITEL : OUI 


M Fin‘du progranne 











: Japr ner liste 


conposition d'écran videotex Li 
DDR NM) 





Tout est prêt pour le démarrage du journal : 
appuyer sur la touche M (Minitel) et c'est parti. 
Chacune des pages de la liste est affichée sur 
l'écran du minitel avec la durée d'affichage 
prescrite. Pas de contrainte, le passage d’une 
page à la suivante étant automatique. Après 
affichage de la dernière page de la liste, le 
programme repasse à l'affichage de la 
première, ce qui justifie l'appellation JOURNAL 
CYCLIQUE. 


Le journal cyclique sur minitel est un outil 
fabuleux d'information, encore largement sous- 
exploité par les PME et les commerçants. Il 
nécessite la mobilisation d'un PCW, ce qui ne 
devrait pas poser de problème pour les 
utilisations de nuit. (figure 4) 


Vous le saurez immédiatement en consultant le 
nouveau service 36.15 code MPL ; la base de 
données réalisée avec les journaux du siècle 
couvre actuellement la période 1936-1980 ; 
après avoir indiqué votre date de naissance 


Nynèro 


ñonh de L'écran urèe (secondes 


Kasre2ess E 


{- RATIO + FERME 
or BEF © HER xt au 


5 ggione ë Li 
DD 


EN | 
LOTUS 


nv, vides nregistrer 
lignoter ire 


AN ENREGISTRE 
AN LU 
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___ TELEMATIQUE 
COMMUNICATION 


ue s'est-il passé QG. s'est-il passé 


CSUITE H le “jour” de votre naissance ? le "Jour" de votre naissance ? 


Conauni tre: 
Votre date de naissance... Li ch cc 


Gagnez le journal [JEU RARES née: A. CSUITE] 


du Jour de votre naissance, 
Commandez le journal M. 1 ,, CSUITE] 


du Jour La vous intéresse, 
Guide our : ., [ENWI] 


Votre choix: B [ENVOI] de naissance, 


Figure 4 : 
écran graphique : que s'est-il passé 
le jour de votre naissance ? 





(25/03/50 pour notre recherche) vous obtenez Encore une fois, la télématique nous démontre la 
successivement 3 pages d'informations ; la grandeur et la diversité de ses 

première relate les événements de l’année de possibilités à côté desquelles 

votre naissance, la seconde ceux du mois et passer sans y goûter serait 

dans la série ‘’Il faut toujours garder le meilleur criminel ! 

pour la fin’ la troisième page présente les 

événements du jour de votre premier cri. A bientôt... 





Figure 5 : sélection de la date, obtention des infos de l’année, du mois, du jour 


Q. s'est-il passé 
G. s'est-il passé le "jour" de votre naissance ? 


“aois" is: 9 
_ s'est-il passé le “nois" de votre naissance ! 


"l'année" de votre naissance ? 


PONPIER SAUVE UNE 


UN 
enr | PERTE 
UE COULITCHEU EST CON- L'INCENDIE DE SÀ 


EE ONE ml 
PRISON PAR LA COUR , 
Reagan) | ET 
PT RTE Le NA VENISE. " EMARD RICE BURROUGHS. 


DE E ARD SHAN TRE DU FRONT POPULAIRE, NIE DU CREATEUR DE 
1 Ne STARZAN® EDMARD RICE BURROUCHS. 


LE GAL DE LATE DE ASSIQNE EST LEON BLUM, APOTRE DU FRONT POPULAIRE, E 


CSUITE] [] CSUITE] CSOMNAIRE ] 
PAGE: 5/7 1] LES 
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22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 





OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13het de 15 h à 19 h, LE SAMEDI de 10 h 30 a 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


ML 


















































































































































































































scanner master Can ........................... 895F C]support moniteur mobile .................. 425F 
2° lect. disquette 3" 1690F | 1 graffpad 3 (avec logiciel) .................. 1850F 
interface série/parallèle 690F housses (clav. + impr.+ mon) ............. 275F 
C] stylo optique “électric studio” 880F ‘à BTE AIN CAL RS 2495F 
C] souris “électric studio”... 1490F ame RDA AAA HG Ann En me 
Cdigitaliseur 1390F disquette. ct2 DD: : 25e eummeunsen 69F 
Uporte-doc.-articulé ...................... 375F : : ï Ddisquette cf2 D ......................... 31F 
rallonge centronic ....................... 245F Cicible téléphone synéa .................... 215F 
rallonge impr. + clavier ................... 299F PCW 8256 4750F boîtier auto-répondeur .................... 265F 
C]support imprimante (avec bac) .............. 695F PCW8512 5925F Ccäble minitelsynéa ...................... 215F 
1e ] 
1 \ 
Witéiiin y 
Des boîtes géniales pour ranger vos supports 
L] pour disquettes 5” 1/4 210F 
L pour disquettes 3” et 3” 1/2 160 F 
[pour cassettes 39F | | LIFUESSOIL......................: { Tjoystick competition PRO 170F 
LOGICIELS 
3dclockchess 150F Idatamat pcw 395F  Lilocaprinter 350F Jspace invaders 160F 
act] 805F  C)dbasell 790F  C]mailing 450F Lspool 350F 
Jaliénor 1055F Cidevpac 80 550F [master file 8000 550F Ulstarglider 250F 
l'analyse finan. (sous multiplan) 240F digitaliseur . . 1390F C]mercitel 4 1190F snooker 175F 
astro | 450F drgraph 790F Imop-mbp .... ë 895F strike force harrier 215F 
lastro 2 950F  CJdtp-pao…. 395F  C]mop-mbp + câble minitels 1295F synea 1150F 
lastro 2 2000F  UJenchanter 265F mop-mbp + avec modem 1995 F Utalos 1995F 
lastro couple 600F exbasic 2 250F Cimultiplan 499F Ultas sign 300F 
autoformation assembleur 295F fa. + gest. stock 2099F Umynea 830F tasprint . 230F 
azerty 250F fairlight 160F Copticaisse 195F ]tasword 8000 450F 
{batman 190F Cfrank bruno's boxing 185F Corphée 295F the pawns 265F 
[bob winner 240F Cigpli 760F  Cpcwgraph 295F Jtomahawk 220F 
bounder 220F graphic magic 350F Dpcw paint 325F ltop secret 295F 
bourse 2000 850F Jguardian 170F Tplanetfall 265F trivial pursuit 230F 
Ulbridge player 210F guild of thieves 250F  CJpocketbase 790F  []tuern'est pas jouer 190F 
}centre serveur 2350F Jhead over heels 170F [pocket calc 350F turbo data base toolbox 705F 
cerfa 575F heathrow air control .. 160F LJpocket wordstar ; s 190F turbo graphix toolbox 705F 
classic invaders 160F heraklios 350F polyprint + polyword (promotion) 265F turbo pascal 745F 
Ulcolossus chess 4 160F histoire d'or 250F Drotate 350F {turbo pascal+ option graph 945F 
Ulcompta alphasoft 1175F Jinfidel .. 265F [s.a.5. raid 160F turbo tutor 299F 
{Idamocles . 1755F la paie crésus RU 1175F sam 5 290F 
[database toolbox 745F Ceader board .................... 210F SIgnWriter vue ae 490F 
LIVRES 
Ulamstrad 8256/8512 guide basic 145F _]dbase Il applications .............. 168F Ol'univers dupew ....................... 119F U]modèles multiplan pme com 180F 
Ulamstrad locoscript 110F Cfichiers sur amstrad pcw 135F Ul'univers télématique 250F Cmultiplan pour l'entreprise . 172F 
Ulclefs pour amstrad t2 155F Clgestion sur amstrad pcw 175F Cla bible du graphisme .. 199F Umultiplan sur amstrad 195F 
Uclefs pour amstrad pcw 215F introduction a dbase 2 188F Ule livre de l'amstrad pcw ..... 179F Ulprogrammation sur cpw 149F 
Ulcp/m + amstrad cpc, pewc128 ps 100F l'écho du pcw 30F le livre du logo cpcet pcw ................ 149F 

















extension horloge 


Cette extension va vous permettre d'avoir en perma 
nence non seulement l'heure à la seconde près mais éga 
lement le jour de la semaine et la date du jour. De 
plus un système d'alarme programmable vous évitera 
de rater l'heure de l'apéritif ou du film à la TV 
Grâce à des piles (non fournies) cette extension 
restera active même lorsque vous aurez arrêté votre 
PCW et gardera en mémoire les instructions que vous 
aurez programmées dans ses 50 bytes de RAM non 


Interface manette 


Enfin vous allez pouvoir jouer sans “tricoter” avec 
vos doigts sur le clavier. Vous pourrez également 
utiliser le joystick dans votre propres programmes 
que ce soit en basic ou sous CP/M. 











volatile. lie manette : Interface manette + synthétiseur : extension 256 K : 
extension horloge : interface joystick PCW 399F F EF 
Upour PCW 499F Dinterface joystick + joystick compté. PRO... .499F DOUPE CNE nat se rase RE pour PEW8256 430 
COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F pour achat sup. à 1000 F. 80 F pour achat sup. à 2000 F] 
NOM ns. Sa D == == JEPOSSEDE: COIPCW8256 [LIPCW8512 [DIPCW 9512 
ADRESSE TEL. CODE POSTAL VILLE 


PRODUITS DK TRONICS 





Interface manette + 
synthétiseur 


Interface joystick + contrôleur de son: 
En plus de la possibilité de brancher un joystick, vous 
avez la possibilité de créer des sons ou de la musique 
sur 3 canaux et 8 octaves. De plus un port entrée/ 
sortie vous permet le contrôle d'appareils externes. 














extension 256 K RAM 


Que ce soit en traitement de texte, gestion de fichier 
ou tout autre application cette extension mémoire vous 
permettra d'être plus “à l'aise” et vous évitera d'in- 
cessants accès disque 


























Tous nos prix sont indicatits 


Mode de paiement : [] chèque / [1 mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. [A] 





TOUS NIVEAUX 


Se  LFAITAIRE 
PROGRAMME BASIC 





TROUVE.BAS 


PAR JEAN-EDDIE BOUCHET 


= programmeur appréciant les vertus 

du Basic MALLARD sait à quel point il est fastidieux 
d’avoir à rechercher une instruction ou une chaîne quelconque dans un 
programme et particulièrement si ce dernier est long et touffu. Le programme 
TROUVE.BAS se propose alors de libérer chacun de ce problème 
en recherchant d’une manière automatique et sans appel 
un à dix mots et de donner une liste exhaustive 
des lignes dans lesquelles ils se trouvent. 


PRINCIPE 


Le programme ne peut travailler qu’à partir de 
programme sauvé en ASCII et ayant l'extension 
ASC. Par exemple: SAVE ‘'TROUVE.ASC'',A. 


Le nombre de mots recherchés peut varier de un 
à dix, chacune des lignes contenant un ou 
plusieurs des paramètres à rechercher peut être 
visualisée à l'écran et/ou sur l'imprimante avec 
indication des numéros de lignes où les mots se 
trouvent. 


C'est l'outil idéal qui pourra permettre, par 
exemple : 


- d'isoler des lignes de DATA pour les vérifier 

- de rechercher des PEEK et des POKE 

- de vérifier qu’une variable à introduire n'est 
pas déjà présente dans un programme à 
modifier 

- et bien d’autres choses encore... 


PRESENTATION 
DU PROGRAMME 


Après lancement du programme par RUN 
‘’TROUVE.BAS"'"', le nom du programme à 
‘’éplucher’’ est entré sans son extension (qui doit 


être ’. ASC’ comme ASCII). 


Si le nom choisi ne correspond pas à un fichier 
pond p 

présent sur le disque, le directory s'affiche et on 

revient comme précédemment. 


Si tout va bien, le programme nous demande 
alors d'entrer le numéro de la première ligne où 
doit débuter la recherche ("ENTER' = début), 
puis, si l’on désire, le mode automatique sans 
affichage (plus rapide) ou la visualisation de 
chaque ligne. Vient ensuite l'entrée des 
paramètres à chercher : la recherche commence 
automatiquement au dixième ou à l’action de 


"ENTER" (Figure 1). 
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# # RECHERCHE DE CHAÎNES DANS UN PROGRAMME x x 
V : 2.1 


Par Jean-Eddie BOUCHET 






Ligne de début : 10 
Affichage des Lignes (O/N 


Paramètre :  COSUB 
Paranètre : MHILE 
Paranétre 





























Paranètre 


Figure 1 


# x RECHERCHE DE CHAINES DANS UN PROGRAMME * # 
vieil 
Par Jean-Eddie BOUCHET 


840 IF CNT=69 THEN My 1950 ELSE IF CNT=73 THEN Al] 1210 


Figure 2 


A chaque étape de la recherche en mode 
visualisation, on peut interrompre le processus 


par l’action de "EXIT' (figure 2). 


La recherche se termine alors en nous 
demandant si nous désirons une sortie des 
numéros de lignes sur écran (figure 3) ou sur 
imprimante. 


PRINCIPE DU PROGRAMME 


Chacun des dix paramètres est indicé {ligne 
1000). On recherche chacune de leurs 
apparitions dans la ligne (ligne 720), puis on 
remplace alors le début de la chaîne jusqu’à la 
position trouvée, ajoutée de la longueur du 





Paranètre: 
449 569 


Paranètre: 
620 


TOUS NIVEAUX - 
PROGRAMME BASIC 


COSUB 
700 





our continuer ou (EE? 


PARAMETRES ET No DE CORRE SPOND 
Programe : TROUVE.ASC WE su 
HHBGBEE 


760 640 640 920 1030 12% 1460 


HHILE 


Paranètre: HEXD Figure 3 
7% 





paramètre, par un symbole peu utilisé (‘’  ‘’ ligne 


760) et la recherche continue. 


Chaque numéro de ligne découvert est alors 
stocké (ligne 1210) sous la forme : numéro* 
dans la chaîne NUMS(A,K), de longueur 
maximale 249. A est l'indice du paramètre, K 
servant à obtenir jusqu’à vingt groupes 
possibles. On peut ainsi mémoriser jusqu’à 820 
numéros de 5 caractères, ou 1240 de 4, ce qui 
devrait être généralement suffisant. 


ATTENTION ! 

Les codes situés en fin de lignes sont destinés à 
vous permettre de vérifier la justesse de votre 
saisie. Il sont représentés par une apostrophe 
suivie de deux codes entre parenthèses. 
Exemple : ‘(X2). 


Ne les saisissez pas car ils n’interviennent jamais 
dans le déroulement du programme mais ils sont 
générés par le vérificateur B12+ publié dans l’Echo 
N°14 avec les explications relatives à son emploi. 
Pour saisir le programme de cet article, reportez- 
vous à la note située en dernière page. 


IO'ÉYELEXXEXXS 


20 '* j 
30 ‘x  TROUVE BAS Î 
40 '* j 
50 ‘# PAR : J,E BOUCHET * 


60 ‘x (c) L'ECHO OU PCW # 
10 'X 1988 * 
80 ‘À ï 
URESERSRSESS: 





110 ‘ INVERSION VIDEO ON/OFF 

120 inv$=CHR$(27)+"p"ininv$=CHR$(27)+"q"" (PO) 
190 ‘-----.-"-""-"-- 

140 EFFACENENT ECRAN 

150 esc$=CHR$(27)'c1s$=esc$+"E"+esc$+"H"! (PA) 


170 ‘ LOCALISATION DU CURSEUR 
180 DEF FNloc$(x,y,t$)=esc$+"V"+CHRS(324x)+CHRS(32+y)+t$' (F6 


209 ‘ POUR ALLEGER LE PROGRAMME 
210 LIGS=INVS+FNLOCS(9,9, SPACES(90))+FNLOCS(9,20,"")' (87) 










230 ‘FENETRE(32#Noligne,32#Nocol,31+nbligne, 31+nbcol) 

240 FOt=esc$+"A"+CHRS(32)+CHRS(32)+CHR8(62)+CHR$ (121) :REN ECR 
AN NORMAL' (0D) 

250 Fit=esc$+"A"+CHRS(43)+CHRS(32)+CHRSCST)+CHRSCI21):REN PAR 
TIE BASSE DE L'ECRAN‘ (HH) 

260 F2$=esc$+"A"+CHRS(32)+CHR6(32)+CHR$(62)+CHR$C121):REM FEN 
LR SORTIE ECRAN' (FB) 


280 ‘ TRAIT DOUBLE 
290 TRE$=STRING$(90,154)' (2A) 


310 'TABLEAU À 2 DIMENSIONS POUR No DE LIGNES 
320 DIM NUM$(10,20):K=l' (XI) 


360 ON ERROR 6070 1470' (XX) 

370 PRINT CLS$FNLOC$(0,20,"*# x RECHERCHE DE CHAINES DANS UN 

PROGRAMME  *# X")FNLOC$(2,40,"V : 2,1")FNLOCS(4,30,"")+" Par J 
ean-Eddie BOUCHET"' (VK) 

380 PRINT FNLOC$(5,35,STRING$(16,"-"))FNLOC$(7,7,"Le progranm 
e concerné doit etre écrit au directory avec l'extension ‘AS 
Ce (V3) 

398 PRINT FNLOC$(8,0,TRES$):PRINT TRES' (PK) 


430 PRINT LIG$::INPUT "Nom du programme (sans l'extension) : 
“,prog$:IF prog$="" THEN 860 ELSE prog$=LEFT$(UPPER$(prog$),8 
)+" ASC": PRINT NINVS' (KI) 

440 IF FIND$(prog$)="" THEN PRINT LI6$;"Le progranne ":progf; 
"n'est pas sur ce disque, , ,";CHR$(7):NINVS:GOSUB 880:G0T0 43 
4 (J8) 


480 PRINT ESC#;"j":CNT$="0123456789"" (J6) 

490 PRINT ESC$:"k":ESC$:"K": LINE INPUT “Ligne de début : ",d 
eb$:IF deb$="" THEN debut=0:G60T0 530' (8T) 

500 FOR J=1 TO LEN(deb$):deb1$=MID$(deb$,J,1)' (WE) 

510 CTR=INSTR(CNTS ,debl$):IF CTR2:0 THEN 490 ELSE NEXT J' (HB) 
520 debut= VAL (deb$): IF debut>65535! THEN 499' (V3) 

530 PRINT:PRINT “Affichage des lignes (O/N) : ":' (4U) 

540 AfFS=INKEYS:IF Aff$="" THEN 540 ELSE AfF$=UPPERS(AfF$):I 
F Aff$0"0" AND Aff$C)"N" THEN 549 (YU) 

550 X=11:Y=25:1z1' (QH) 

560 GOSUB 978:REM Entrée des paramètres" (Và) 


580 IF para$(1)="" OR 1=10 THEN G0TO 590 ELSE I1=I+1:60T0 560" 
(GV) 

590 PRINT FI$CLS$F0$" (VA) 

600 OPTION NOT TAB:OPTION RUN' (FJ) 

619 OPEN "i",l,prog$' (U3) 

620 WHILE EDF (1-1! (UD) 

630 LINE INPUT #1,a$:a$=UPPERS(a$)'REM a$ est une ligne du pr 

ogranne à éplucher' (KQ) 

640 IF LEN(a$)=Q THEN 790' (ZE) 

650 N=INSTR(a$," ")'NUMS=LEFT$(a$,N-1)' (MS) 

660 IF VAL(NUM$)<debut THEN 630' (D7) 

670 IND=1:VISU=0" (R8) 

680 FOR A=1 TO I-1' (OU) 

690 b$=a$'REM Sauvegarde de a$ dans b$' (LV) 

700 POSI=INSTR(D$ ,para$(A)):1F POSI=0 THEN 750 ELSE GDSUB 190 

Q:REM Affichage' (GU) 


720 ‘Puis on renplace du début de la chaine jusqu'aprés le pa 
ramètre par CHR$(174) 
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140 IND=2:b$=STRINGS(POSI-I+LEN(para$(A)) ,CHR$(174))+RIGHT$ Ca 
$,LEN(a$)-POSI+1-LEN(para$(A))):G0T0 700' (LB) 

750 NEXT' (07) 

160 IF Aff$="0" AND VISU=1 THEN GOSUB 940:PRINT FI$CLS#F0$" ( 
IR) 

770 WEND' (CS) 


810 CLOSE:OPTION TAB:OPTION STOP' (N6) 

820 PRINT CLS$FNLOCS(15,15 ,"Désirez vous une sortie sur (I)np 
rinante, sur (E)cran ou (Fin : ?"):' (HR) 

830 CNTS=UPPERS(INKEYS):IF CNT$="" THEN 830 ELSE CNT=ASC(CNTS 
):1F CNT=70 THEN 860' (LQ) 

840 IF CNT=69 THEN GOSUB 1350 ELSE IF CNT=73 THEN GOSUB 1210 
" (J0) 

850 60T0 820' (HC) 

860 PRINT NINVSCLS$:END' (41) 


900 REM Affiche le directory quand programme non trouvé 
910 PRINT FI$:DIR' (RF) 
920 PRINT FO$:G0SUB 940 :PRINT FIS$CLS$FOS :RETURN' (7P) 


940 PRINT INVSFNLOC$(32,20 ," Appuyez sur une touche pour cont 
inuer ou (EXIT} ")NINVS:' (QC) 

960 IS$=INKEYS:IF [$="" THEN 950 ELSE CNT=ASC(I$):IF CNT=27 TH 
EN 826 ELSE RETURN' (66) 


970 ' ENTREE DES PARAMETRES 

980 PRINT FNLOC$(X,Y,SPACES(8)): "Paramètre ":1,": "::LINE IN 
PUT ""para$([) :para$([)=UPPER$(para$(1)):=X+2:RETURN' (B2) 
990 ‘---mmmnmenmnemmanmunne 


1020 VISU=1:REM Indique une visualisation! (26) 

1030 60SUB 1130:REM nénorisation du No des lignes contenant 1 
es paranètres' (KK) 

1040 IF Aff$="N" THEN RETURN! (7N) 

1050 ON IND GO0TO 1060,1080' (02) 

1060 PRINT FNLOC$(14,0,""):PRINT a$:REM Ce procédé permet d'a 
fficher des lignes de 255 caractères à l'endroit voulu (ligne 
1S-colonne 0)' (6D) 


1080 ON INT(T+((POSI-1)/90)) 8OTO 1090,1100,1118' (WX) 

1090 PRINT INVSFNLOCS(15,POSI-1 ,para$(A))NINVSFNLOC$(12,POSI- 
1,E8C$+CHR$(9)) RETURN! (KL) 

1100 PRINT INVSFNLOCS(16,POSI-91 ,para$(A))NINVSFNLOCS(13,POSI 
-91,ESC$+CHR$(9)):RETURN' (@L) 

1110 PRINT INVSFNLOCS(17,POSI-181 ,para$(A))NINVSFNLOCS(14,P0S 
1-181,ESC$+CHR$(9)) RETURN! (30) 


1150 N2INSTR(a$ ," "):NUMS=LEFTS#(a$,N-1)' (00) 
1168 K=1:REM On cherche le K de la chaine incomplète (BC) 


1180 IF LENCNUM$(A,K))2249 THEN K=K+1:G0T0 1180 ELSE 1190' (D 


U 
1190 NUMSCA,K)=NUMSCA,K)#NUMS+ "4" :RETURN" (TG) 
1200 ‘= 

1210 ‘SORTIE SUR IMPRIMANTE 

1220 mm 


1230 PRINT FIS$CLS$FOSFNLOC$(20,20 , "Il est temps maintenant de 
charger l'imprimante,,,")CHR$(7):GOSUB 940 (RQ) 


TROUVE.BAS + L'ECHO DU PCW N°16 


TOUS NIVEAUX 


PROGRAMME BASIC 


1240 LPRINT TAB(20)"PARAMETRES ET No DE LIGNE CORRESPONDANTS" 
TAB(25)"Progranne : “:prog$ :TAB(30)STRINGS(8, "4" ):LPRINT' (JE 


) 

1250 ZONE (6):VIDTH LPRINT (77):A=l:L=1:FOR A=1 TO I-l' (C4) 
1260 LPRINT'LPRINT "Paramètre: ":para$(A)' (YH) 

1278 B$=NUM$(A,L)' (P7) 

1280 POSI=INSTR(BS,"K"):IF POSI=0 THEN 1310' (VT) 

1290 NUMS=LEFT$(B$,POSI-1):B$=MID$(B$,POSI+1):REM Nun$=le No 
de ligne avant l'#' (JD) 

1300 LPRINT NUM$,:GOTO 1280' (7F) 

1310 IF LENCNUMS(A,L+1))<>0 THEN L=L+1:G60TO 1270' (11) 

1320 LeT:LPRINTNENT' (24) 

1330 WIDTH LPRINT (132):20NE (8)' (DV) 

134 RETURN' (IW) 

1350 ‘SORTIE DU ECRAN 


1370 PRINT CLS$F2$TAB(35)"PARAMETRES ET No DE LIGNE CORRESPON 
DANTS"TAB(35)"Programne : “:prog$; TAB(42)STRINGS(8, "K") :PRINT 
! (R6) 

1380 ZONE (6):A=1:L=1:FOR A=1 TO I-1' (HI) 

1390 PRINT:PRINT “Paranètre: "'para$(A)' (UD) 

1409 B$=NUMSCA,L)' (P2) 

1410 POSI=INSTR(BS,"#"):1F POSI=0 THEN 1440" (VS) 

1420 NUMS=LEFTS(B$,POSI-1):B$=MID$(B$,POSI+1):REM Nun$=le No 
de ligne avant l'#£' (J8) 

1430 PRINT NUMS$,:60T0 1419 CSA) 

1440 IF LENCNUMS(A,L+1))<>0 THEN LeL+1:G0T0 1400' (10) 

1450 LET:PRINT:NEAT' (XW) 

1460 PRINT F0$:G0SUB 940:Z0NE (8):RETURN' (UQ) 


1500 Z=ERR'RESUME 1510' (08) 
1819 PRINT L16$: ERREUR BASIC No"+STRS(Z)+" EN LIGNE"+STRS(ER 
L)+CHRS(7):NINVS:" (KG) 

1520 FOR P=1 TO 3000:NEXT P:60TD 790 (IN) 
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GENIAL 1!!! 


L'Invention de l’année 1986 est enfin disponible sur les meilleurs écrans. 
C'est par les mains de Richard PERRY directeur de ROLLS ROYCE 0 





que le premier prix de 50.000 F a été décerné 
à THINGI comme étant la meilleure 
invention de l’année. 


Pourtant THINGI est d'une extrême simplicité qui n'a d'égal que son 
utilité. Jugez plutôt : Fixé sur le dessus de l'écran, par une bande de 
velcro, THINGI se pose, s'oriente et s'enlève à volonté. THINGI peut 
tenir, sans défaillir, une charge de plus de 500 grammes ou l'équiva- 
lent de 150 pages !!! THINGI libère les bureaux de tout autre support 
encombrant et cher. 


THINGI c'est à gauche ou à droite 
il suffit de le demander ! 
THINCI est le cadeau idéal 


qui étonne et plaît. 7 

THINGI c'est demain er œ 

chez vous parce que D # 

c'est aujourd'hui « \ & 

chez tous les \ £ \ we. 

He revendeurs \ à Pour en savoir plus 
dédie \ Es Sd appelez la THINGI LINE 

\  d au (1) 48 67 89 54 


on encore une 
bonne idée 


la]fs7l] 
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S FA 0 BD 50, rue de Richelieu, 75001 Paris. Tél. 42 96 93 95 (l Espace le plus 


Métro Palais Royal. Du lundi au samedi de 9 h 30 à 19h micro de Paris l 


LE TOUT Je UT NOUVEAU ! ESPACE PRO! 
.… 47, rue de Richelieu - 75001 PARIS 
MATERIEL UTILITAIRES JEUX 
AMSTRAD PCW 8256 474000  COMPTABILITE ALIENOR 105500 BATMAN 190.00 


AMSTRAD PCW 8512 5926.00 FACTURATION STOCK 175000 BOB WINNER 240.00 


AIE LOGICYS 1150.00 FRANCK BRUNO BOXIN 199.00 
1 2 JOURNEE DE FORMATION MULTIPLAN 290.00: 1 HMDCE LAVER : OS 


GRATUITE POUR TOUT ACHAT OBASE Il 790 00 DER DDia 230 00 
PERIPHERIQUES PRCRET PAGE $20:00 ORPHEE ns 295.00 
US RETENLE 430.00 GUARDIAN 170.00 


CRAYON OPTI 490.00 
INTERFACE MA 290 00 STRICKE FORCE HARRIER LEE 


6 K 290.00 TOP SECRET 295.00 
LECTEUR EDS : 35000 TRIVIAL POURSUIT 290.00 
DIGITALISEUR VIDEO 250 00  TOMAHAWK TE 
EMULATEUR MINITEL-MYNEA 99000  3D CLOCK CHESS 150.00 


AA . * CEA 
SERVEUR MINITEL-SYNEA : 590 00 BIBLIOGRAPHIE 
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PROGRAMMATION DBASE II 


PAR MARC HERMION 


A LA. 


ors de notre première entrevue, nous 
avons découvert qu'avec un peu d’astuce 
et de codage, il nous était possible de 
mémoriser 40 % d'informations supplé- 
mentaires avec notre DBASE préféré. 
Comme convenu, nous allons nous pen- 
cher, maintenant, sur la récupération de 
ces informations en mettant en place des 
commandes complémentaires qui transfor- 
meront des commandes disparates en une 
application complète et particulièrement 
efficace. 


JUSTE UNE MISE AU POINT 


Avant d'expliquer plus avant les méthodes de 
récupération, je tiens à corriger une petite erreur 
de frappe qui a échappé à notre vigilance lors 
de notre entrevue précédente. Elle concerne la 
structure du fichier et, plus particulièrement, le 
type du champ AGE qui aurait dû être C et non 
pas N comme le tableau de la page 7 le 
donnait à tort. 


NOUVELLES COMMANDES 


Notre première commande, SAICLI.CMD, était 
le point de départ de l'application en cela 
qu'elle permettait de saisir nos fiches clients en 
dispatchant sur deux autres commandes, 
AF_VILLE.CMD et CH_ PAYS, la mission de 
coder VILLES et PAYS. 


Pour arriver à une application complète, nous 

allons créer une commande qui servira de point 
de départ à la totalité des fonctions en partant 
d'un menu principal que nous appelerons, bien 


évidemment, MENU.CMD. 


Le menu principal renvoie donc sur chaque 
option dont l’une d’entre elles est SAICLI.CMD 
qui devra aussi faire l’objet de quelques 
modifications puisqu'elle n’est plus le point de 
départ. Nous verrons ceci plus loin. 


Autre nouveauté, la commande AF__CLI.CMD 
dont la mission sera de rechercher un enregis- 





A LA RECHERCHE DE L'OCTET PERDU + L'ECHO DU PCW N°16 






CODAGE D'UN FICHIER CLIENT 
AAUATAE NZ: 








trement pour l'afficher et 

permettre d’indispensables 

opérations telles que : 

correction, suppression, 

rétablissement ou tout 
simplement visualisation. 


Cette nouvelle commande nous oblige aussi à 
créer un index sur le nom afin de permettre une 
recherche aisée. 

Enfin, pour permettre le décodage et la 
restitution des TITRES et des PAYS, deux 
nouvelles commandes vont être étudiées : 


CH__TITRE.CMD et CH_PAYS.CMD. 


LE MENU PRINCIPAL 
Connu sous l'appellation MENU.CMD, le menu 


propose les options disponibles et lance chaque 
commande responsable du traitement de l'option 
voulue. En fin d'opération, les commandes 
sollicitées retournent systématiquement au menu 
principal. 

L'emploi d'un menu général oblige à modifier la 
commande SAICLI.CMD vue le mois dernier afin 
que toutes les options d’initialisation passent 
dans MENU.CMD. Ainsi la sélection des fichiers, 
primaire et secondaire, et les options d'utilisation 
comme SET TALK OFF ou SET CONFIRM ON 
quittent SAICLI.CMD pour se retrouver dans 
MENU.CMD. 


Mais, dans l’immédiat, saisissons MENU.CMD et 
laissons de côté les modifications à apporter à 
SAICLI qui seront détaillées un peu plus loin. 


.DECODAGE DES VILLES 


Comme nous l'avons mis en place, les villes sont 
mémorisées dans un fichier VILLE.DBF indexé 
sur les villes par l'index INDVILLE.NDX. 


Le décodage se passe donc en trois temps : 

1. il prend le numéro de la ville dans le champ 
VILLE du fichier CLIENTS 

2. Il va chercher la ville correspondante dans le 


fichier VILLE 


3. Il le restitue au programme pour son affichage. 


Tout ceci se passe en cinq lignes dans la 
commande AF__CLI.CMD par : 






NIVEAU AVANCE 
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D ————— 
1 SELECT PRIMARY Choix du fichier CLIENTS I 
1 STORE VILLE TO NUMYVILLE Le numéro contenu dans le | 
I champ ville est mis dans la | 
I variable NUMVILLE | 
1 SELECT SECONDARY Choix du fichier VILLE I 
1 GO NUMYVILLE Se positionne sur la ville ( 
I pointée par NUMVILLE I 
; STORE VILLE TO VILLEI1 Restitue la ville, le tour est 
joué ! 


RE NN me Mn ere J 
DECODAGE DES PAYS 


Géré par REC__PAYS.CMD, le décodage des 
pays fait exactement l'inverse de ce que faisait 
CH_PAYS.CMD. Ce dernier testait les pays 
disponibles dans la commande et leur affectait 
un code. REC__PAYS.CMD teste le code et 


restitue le pays. 


Il faut penser au fait que les pays mis dans 
CH_PAYS.CMD, le mois dernier, étaient 
donnés à titre indicatif. Nous pouvons donc en 
ajouter autant qu'il y a de codes disponibles sur 
un octet soit 256 ce qui est plus que suffisant. 
N'oublions pas, tout de même, que les codes 
affectés aux villes doivent être équivalents dans 
CH_PAYS et dans REC__PAYS sinon le 
programme risque de prendre l'URSS pour 
l'AMERIQUE ce qui pourrait provoquer un 
conflit d’une ampleur hors de mesure avec la 
modestie de ce programme... 


DECODAGE DES TITRES 


Les titres étaient codés, à la saisie, par nos soins 
sous la forme d’un nombre compris entre 1 et 5. 
Pour tenir compte du fait qu'un tel nombre n'est 
pas très parlant, il faut alors le remplacer par la 
mention qu’il est censé représenter. Ce travail est 
confié à la commande REC__TITRE.CMD et la 
mention est restituée au programme AF_CLI.CMD 
qui, comble de luxe, le met directement dans la 
variable NOM? servant à l'affichage du nom du 
client. Ce regroupement permet de n'avoir 
qu’une seule variable pour le titre et le nom ce 
qui simplifie l’utilisation de ces informations. 


MODIFICATION DE SAICLI.CMD 


Reprenons la commande déjà saisie et éditons-la 
sous DBASE par : 
MODIFY COMMAND SAICLI <RETURN> 


pSupprimons les lignes suivantes : 
IDE 6 (SET CONFIRM ON) à 12 (USE VILLE INDEX INDVILLE) I 


lAjoutons la ligne sur la même ligne que : I 
[STORE ‘‘ ‘ TO PAYS2 nl 

à la ligne suivant STORE ‘‘ ‘ TO REP (16: ligne) nl 
jAND. REP2 = ‘C‘* DO WHILE SAISIE = ‘OK nl 
IRemplaçons : 


IPAYS1 par PAYS2 à REPLACE PAYS WITH PAYSI (18° ligne 
avant la fin) I 


Le RS NN de J 
Ceci fait, le début de SAICLI.CMD doit 
48) maintenant ressembler à celui de la figure 1. 








Y COMMANDE SAICLI,CMD VI] 
3 12/12/87 

3 SAISIE DES CLIENTS 

L 

i 

STORE * * TO SAISIE 


STORE "OK" TO SAISIEV = 
STORE “OK" TO SAISIEP == 


STORE ‘ "10 REP = 


STORE * “ TO PAYS2 
Figure 1 





L 
X DEBUT DE LA BOUCLE 
L 


D0 VHILE SAISIE # "OK" 
IF SAISIEV="OK" AND, SAISIEP="OK" ,AND, REP2 # "C" 


UTILISATION 


Ayant saisi toutes les nouvelles commandes, il ne 
reste plus qu'une dernière formalité avant de 
vérifier que tout fonctionne. En effet, le fichier 
CLIENTS est maintenant indexé sur le nom par 
l'intermédiaire de l’index INDNOM.NDX qui 
sera obtenu par INDEX ON NOM TO 
INDNOM <RETURN>. 


Cette dernière opération n'étant possible que si 
quelques fiches clients ont déjà été saisies le 
mois dernier. Si ce n’est pas le cas, voilà ce 
qu'il faut faire avant d'indexer : 


C'usE CLIENTS <RETURN> E 
APPEND <RETURN> 

L'saisie d’une fiche bidon et sortie par 1 

| SALT> + <W>. : 


L'indexation peut maintenant se faire. 


Tout est prêt pour le grand moment... Le démar- 
rage s’obtenant par DO MENU <RETURN>, 
nous nous retrouvons confrontés au menu 
principal qui n'offre pour le moment que 3 
options : 


Figure 2 
#t PROGRAMME LOGI' STICK #3 


1/ SAISIE DES CLIENTS 
04 _——. DE CLIENTS Qi 





4/ FIN DE CESSION ve 


ENTREZ VOTRE CHOIX: 1: ; 
C'orroï NOM COMMANDE I 
I l SAISIE D'UN CLIENT SAICLI.CMD I 


2 RECHERCHE D'UN CLIENT AF_CLI.CMD I 
9 SORTIE DU PROGRAMME. RETURN J 


SAISIE D'UN CLIENT 


Cette fonction n’est pas nouvelle mais mérite un 
rappel. Sous l'aspect de la figure 3, l'écran sai- 
sie demande l'entrée des informations suivantes : 
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_ CODAGE D'UN FICHIER CLIENT 
QUUATNENZNNe: 





TITRE : soit 1 pour MME, 2 pour MELLE, 3 
pour MR, 4 pour STE et 5 pour ASSociation. 


NOM : comprenant nom et prénom. 


ADRESSE1 et ADRESSE2 : soit l’adresse en 


majuscules. 


CODE POSTAL : 5 chiffres dont les deux 
premiers serviront à déterminer le département 
pour les recherches futures. 


VILLE : attention à l'orthographe ! Cette entrée 
est ensuite testée par la commande 
AF_VILLE.CMD qui vérifie si la ville est déjà 
mémorisée dans le fichier VILLE.DBF. Si ce n’est 
le cas, AF__ VILLE propose sa mémorisation. Si 
la mémorisation est refusée, le programme 
considère que nous avons changé d'avis quant 
au choix ou à l’orthographe de la ville et 
renvoie sur l'écran de saisie. 


Dans le cas où la ville existe déjà dans le fichier 
VILLE, AF_ VILLE affiche l'égalité qui peut être 
soit acceptée soit refusée. Cette possibilité est 
liée au fait que nous pouvons décider que 
MARSEILLE et MARSEILLE CEDEX sont deux 
villes différentes (ce qui est chaudement 
conseillé). Dans le cas où l'égalité est acceptée, 
le programme affecte le numéro de la ville déjà en 
fichier au champ VILLE de la nouvelle fiche client. 


moneuet SAISIE DES CLIENTS #6 


(L):MME (2) MELLE (3>:MR (4) :STE (S):ASS :&: 
NOM: Ua Re (A3: RN : 
ADRESSEL ‘HR RO) RS : 
ADRESSES :(L) RER : 


CODE :kkEN: 
PAYS :EL3: 
CONFIRMEZ VOUS L'EGALITE : 

33000 BORDEAUX 


VILLE ‘0 SNS : 
PROFESSION :4: AGE :EM: 


AUEC 
33 BORDEAUX 
Par (O)UI ou Par (N)ON: : 


Figure 3 


PAYS : comme vu plus haut, le pays est 
remplacé par un code servant à l'identifier. Les 
pays reconnus contenus dans la commande 
CH_PAYS et l'orthographe a encore son mot à 
dire. Notons que tout pays inconnu par la 
commande est signalé et un choix nous est 
proposé : Soit la validation qui entraîne la 
mémorisation d’un code X pour pays inconnu. 
Soit le refus qui ren- 
voie sur l'écran de 
saisie pour correc- 
tion ou modification. 


RECHERCHE 
D'UN CLIENT 


Obtenue par la 
nouvelle commande 
AF_CLI.CMD 
[Figure 4), cette 
option recherche un 


#66 RECHERCHE D'UN CLIENT #44 
ENTREZ SON NOM: EN: 


#%x PROGRAMME LOGI' STICK #4 


1/ SAISIE DES CLIENTS 
2/ RECHERCHE DE CLIENTS 


3/ FIN DE CESSION 


ENTREZ VOTRE CHODX:H: 


Figure 4 
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nom sur les trois premières lettres. Exemple : 
pour rechercher DUPONT, le programme 
cherche DUP. Nous devons donc entrer un 
minimum de 3 lettres pour que cette commande 
soit efficace. L'entrée de trois étoiles annule la 
recherche et renvoie sur le menu principal. 


Une fois la fiche retrouvée, elle est visualisée et 
plusieurs choix sont alors possibles : 


Re D Ce a 71 


y <P>LUS : Pour passer à la fiche suivante 
| MOINS : Pour passer à la fiche précédente 
y <O7K : Pour revenir au menu principal 


<S>UPPRIME : Suppression de la fiche visualisée. Cette 
pEuppression est temporaire puisqu’obtenue par 

DELETE RECORD et ne sera effective que si le fichier est 
pc °mpacté par PACK. 

<R>EMET : Restitue la fiche supprimée par <S> 
<C>ORRECTION : Renvoie sur SAICLI pour toute correction 
sur la fiche. 


#x VISUALISATION D'UNE FICHE #66 


FICHE N° ‘BH: 
NON : ADI A SE : 
ADRESSEL ‘KR ) RERO) SNS : 
ADRESSES : RENNES : 
CODE HAN: VILLE 00 ENS : 
PAYS :u(8d: PROFESSION :14: AGE Hi: 


1 OPTION: <0)K (CORRIGE (PLUS (H)OINS {SUPPRIME (R)EMET 


Figure 5 


UTILISATIONS 
COMPLEMENTAIRES 


Il est certain que nous disposons de suffisamment 
de commandes pour commencer à monter une 
application beaucoup plus élaborée. Voyons les 
possibilités et les moyens d'y parvenir : 


- Modification de la structure. 
D'autres champs peuvent être ajoutés par 


MODIFY STRUCTURE CLIENTS. Les comman- 
des SAICLI et AF__CLI devront alors être 
modifiées en conséquence. Evitons, toutefois, de 
modifier les champs codés TITRE, VILLE et 
PAYS qui entraîneraient un important 
bouleversement de la structure générale. 


- Edition sur imprimante. 


Pour étiquettes ou autre, les fiches clients sont 
facilement accessibles au niveau de la 
commande AF_CLI. Il suffit d'ajouter des choix 
dans le menu et de renvoyer sur une commande 
adaptée. Les champs à récupérer sont : 


LE Far 
{NOM2 pour TITRE + NOM : 


ADRESSEI & ADRESSE pour l'ADRESSE I 
[CODE & VILLEI1 pour le code et la ville décodée I 

PAYSI pour le pays décodé ou PAYS si le code est inconnu I 
peeprésenté par X) l 
y PROFESSION et AGE 





ALIMENT 


AJOUT D'OPTIONS DANS LE 
MENU PRINCIPAL 


Tri, moyenne, ou autre restent possibles par la 
création de commandes adaptées qui pourront 
être ajoutées dans le menu principal et appelées 
de celui-ci. 


CONCLUSION 


Je terminerai ce chapitre sur DBASE pour 
signaler que le fichier VILLE ne doit en aucun 
cas subir de modifications comme le tri ou la 
suppression de villes. Ceci est lié au fait que le 
numéro de chaque ville est mémorisé dans le 
champ correspondant dans le fichier CLIENTS et 
que toute modification dans la numérotation des 
villes, donc leur ordre, entraînera des 
catastrophes. Nous trouverons une solution mais 
pour le moment, nous avons déjà fort à faire. 


’ 


* MENU,CMD V 1,1 

* 12/01/88 

* 

ERASE 

"RELEASE ALL 

SET TALK OFF 

SET CONFIRM ON 

SELECT PRIMARY 

USE CLIENTS INDEX INDNON 
SELECT SECONDARY 

USE VILLE INDEX INDVILLE 
STORE 0 TO REP3 

STORE " " TO REP2 

DO WHILE REP3=0 ,UR, REP39 





à 12,5 SAY "ktt PROGRAMME LOGI'STICK kit" 
à 14,8 SAY "1/ SAISIE DES CLIENTS" 

à 15,8 SAY "2/ RECHERCHE DE CLIENTS" 
à 16,8 SAY "3/ ,,,,... ' 

à 17,8 SAY "47 ,,,,,,." 

à 20,8 SAY "3/ FIN DE CESSION" 

à 24,8 SAY "ENTREZ VOTRE CHOIK* GET REP3 PICTURE “4" 
READ 

IF REP3=| 

00 SAICLI 

ENDIF 

IF REP3=2 

00 CH_NO 

ENDIF 

à 1F REP3=3 

FAT ENS 

3 ENOIF 

à IF REP3=4 

A: MO 

à ENDIF 

IF REP3=9 

ERASE 

à 1,1 SAY'FIN DE CESSION, ," 

RETURN 

ENODO 

WAIT 


TTINENZNTE 





X COMMANDE AF_CLIENT,CMD V1,1 
* 12/01/88 

* AFFICHAGE D'UN CLIENT 

x DEBUT DE LA BOUCLE 


ERASE 

00 UHILE T 

SELECT PRIMARY * COMMAND REC_PAYS,CMD VI,1 
STORE # TO NUMFICHE * 12/01/88 

60 NUMFICHE } 

STORE * "JO ETAT | à 

IF t 

STORE “FICHE EFFACEE" TO ETAT | 00 CASE 

ENOIF CASE PAYS="1" 

STORE TITRE TO TITRE] STORE "FRANCE" TO PAYSI 
STORE NOM TO NOM] CASE PAYS="2" 

STORE ADRESSEI T0 ADREI STORE "ITALIE" TO PAYSI 
STORE ADRESSE2 TO ADRE12 CASE PAYS="3" 

STORE CODE TO CODE] STORE “GRANDE BRETAGNE" TO PAYS 
STORE AGE TO AGE CASE PAYS="4" 

STORE PROFESSION TO PROFES1 STORE "ETATS UNIS" TO PAYS] 
STORE VILLE TO NUMVILLE CASE PAYS="T" 

STORE "FRANCE" TO PAYS] STORE “TOG0" TO PAYSI 
SELECT SECONDARY CASE PAYS=CHR(143) 

60 NUMVILLE STORE "TUNISIE" TO PAYS] 
STORE VILLE TO VILLE] ENDCASE 

DO REC_PAYS RETURN 

00 CH_TITRE 


STORE TITRE2+" "+NOMI TO NOM2 
4 ! : 
AFFICHAGE DE LA FICHE AVEC GET POUR L'INVERSION VIDEO 


© SAY "X44 VISUALISATION D'UNE FICHE 4x4" 


i 
t 

al, 

à4,3 SAY" FICHE N° " GET NUMFICHE PICTURE “!L11" 
à 4,25 SAY ETAT 

à6,15 SA" ‘ 
26,3 SA" NON " GET NOM2 

à8,3 SAV" ADRESSE! " GET ADRESSE] 

à 10,3 SAY" ADRESSE2 " GET ADRESSE2 

à12,3 SAY" CODE “ GET CODE 

412,22 SAY" VILLE " GET VILLE] 

à 14,15 SAY : 

à14,3 SAY" PAYS " GET PAYSI 

il 


4,38 SAY "PROFESSION " GET PROFESSION 

à 14,53 SAY " AGE " GET AGE 

à 23,5 SAY "OPTION: (ODK CODORRIGE PLUS MOINS CS)UPPRIME CRE 
SELECT PRIMARY 

WAIT TO REP2 


IF REP2="C" 

ERASE 

00 SAICLI 

ENDIF *# IDENTIFICATION DU TITRE V1 
IF REP2="S" * 12/01/88 

DELETE NEXT | 3 

ENDIF DO CASE 

IF REP2="0" CASE TITRE=] 

ERASE STORE "NME" TO TITRE2 
RETURN CASE TITRE=2 

ENDIF STORE "MELLE" TO TITREZ 
IF REP2="R" CASE TITRE=3 

RECALL NEXT 1 STORF "NR" TO TITREZ 
ENDIF CASE TITRE=4 

1F REP2="P" STORE "STE" TO TITRE2Z 
SKIP CASE TITRE="5" 

ENDIF STORE "ASS" TO TITRE2 
1F REP2="M" ENDCASE 

SKIP-1 RETURN 

ENDIF 

ENDOO 


A LA RECHERCHE DE L'OCTET PERDU + L'ECHO DU PCW N°16 


NE MANQUEZ PAS L'AVENTURE TELEMATIQUE.. 


LES EDITIONS NEPTUNE et L’ECHO DU PCW vous proposent... 


L'UNIVERS TELEMATIQUE 


L'ouvrage de référence en matière de communication 






250 F {port et emballage inclus*) 440 Pages au service de la télématique 








Le livre de l'été ! 





Au sommaire : 


Les entrées/sorties (principe) 

Les entrées/sorties de l'ordinateur 

Les entrées/sorties pour aller plus loin 
Le modem 

La codification des données 

La technique des réseaux 

Les réseaux locaux 

Transpac 

Le télétex 

Le développement des réseaux locaux 
La notion de serveur 

L'architecture logicielle d’un serveur 
Serveur à diffusion restreinte 

Le minitel 

L'utilisation du minitel 

Le langage protocole 

Identification d’un minitel 

Tous les modèles de minitels 

La micromatique 












Cars, y 





















Tous les accessoires du minitel Bibliographie 

Les machines dédiées Tableaux récapitulatifs 

Lexique Cables, logiciels et supports 

Les adresses utiles L'homologation des modems en France 






Cet ouvrage exceptionnel est disponible dès aujourd'hui en retournant à LOGI'STICK 
éditions le bon de commande ci-dessous (ou une copie). 


De - 


Veuillez me faire parvenir dès réception de ma commande, l'ouvrage de référence 


!’L'EVASION TELEMATIQUE"' au prix net de 250 F TTC 
à MME/MELLE/MR() : PRENOM : 






















demeurant à : 









code postal : 











VILLE : PAYS : 


Ci-joint mon règlement de 250 F net par unité. Signature obligatoire : 
(* Etranger et DOM TOM : ajoutez 20 F pour participation au frais de port) 


par [] CHEQUE []CCP [I] MANDAT 


1) Rayez la mention inutile 
Y 























jé 


SATA UE 





SERVICE ENTREPRISES 





&/ 


Au service de ses lecteurs, L'Echo du PCW met ses compétences, son savoir-faire 
et son important fichier de fournisseurs au service des entreprises de toutes tailles. 


Les prestations de ce service sont regroupées 
dans un catalogue spécial qui sera adressé à toute demande 
libellée sur papier à en-tête mentionnant les numéro de SIRET 
et d'APE (ou titre pour les professions libérales). 


Entièrement gratuit, ce nouveau catalogue ‘‘entreprise‘* est remis à jour et envoyé 
régulièrement à toute entreprise ou profession libérale qui en fait la demande. 


soit : recopie de fichiers CP/M vers MS/DOS 
ou l'inverse (MS/DOS vers CP/M). 


Papier à en-tête personnalisée en continu 
Facture à en-tête personnalisée en continu 


GAGNEZ DU TEMPS... 





ET DE L'ARGENT ! 


& 


Programmes sur mesure (tous langages) 
Connexions difficiles 
Maintenance et formation 


donne la liste actualisée. 





- PC/PCW la compatibilité est possible avec le service 
entreprise avec un nouveau service de transfert de fichiers 


- Ce qui sort de votre entreprise est à son image alors soignez-la avec : 


et tout type de formulaires personnalisés en continu. 


- Le service entreprise, c’est aussi une liste de prestataires 
compétents pour résoudre vos problèmes quotidiens comme : 


- De nombreux revendeurs accordent des remises aux entreprises, 
collectivités et professions libérales. Le service entreprise vous en 


N'attendez pas pour inscrire votre entreprise en retournant ce jour le bon ci-dessous à : 
LOGTSTICK - CAPN LE BONAPARTE - BOITE 49 - 93153 LE BLANC MESNIL CEDEX 








__---><- 


STE : FORME JURIDIQUE* : CAPITAL* : 


ADRESSE COMPLETE : 











NOM ET PRENOM DU RESPONSABLE ACHAT INFORMATIQUE : MR° - MME° - MELLE” : 


ACTIVITE PRINCIPALE : 





NOMBRE DE PCW EN SERVICE DANS L'ENTREPRISE : 





* FACULTATIF - ° RAYEZ LA MENTION INUTILE 





AJOUTEZ UNE 
NOUVELLE DIMENSION 


À VOTRE MICRO 


Des périphériques 

à l’infini. 

Calvacom multiplie les possibilités de 
votre micro ordinateur. Derrière votre 
écran, vous retrouverez une équipe 
d'une trentaine de personnes, une 
puissance informatique de plus de 7 
millions de francs et un accès direct à un 
réseau mondial d'information et de 
communication. Tout cet ensemble 
contribue à faire. 


Une autre communication. 
Plus rapide, plus efficace, 
plus complète. 
Simplicité d'utilisation : Un seul geste 
suffit pour vous brancher sur le réseau : 
composer un numéro de téléphone. 
Aucune compétence informatique ou 
formation préalable ne sont requises 
grâce à trois signes qui viennent à votre 
secours chaque ‘fois que vous le désirez : 
Plus d'informations : l'ordinateur 
vous vient en aide, vous indique 
où vous en êtes et vous offre 
différents choix possibles pour continuer. 
Pour corriger la dernière 
réponse que vous avez 
enregistrée ou pour revenir 
en arrière. 
Pour changer de service. Et si 
vous voulez passer derrière le 
décor et comprendre toutes les 
finesses de CalvaCom, vous pouvez 
toujours demander le Manuel d'utilisation 
de CalvaCom. 


Transformez votre micro 
en place boursière 


UNE PRISE DIRECTE AVEC 
L'ACTUALITE FINANCIERE ET VOTRE 
AGENT DE CHANGE. 

Qu'est-ce qui distingue les grandes institutions d'un 
investisseur moyen sinon leur accès plus rapide 
aux informations et services des places 
financières ? 


Maintenant CalvaCom propose ces mêmes 
outils professionnels à des prix abordables. 
même pour des particuliers. 


LES DERNIERES COTATIONS PARMI 
LES 40000 VALEURS DU MONDE 
ENTIER. 

Couvrant 250 places financières dans 40 pays, 
CalvaCom vous tient au courant des 
évolutions des valeurs mobiles qui vous 
intéressent sans vous noyer dans une marée 
d'informations qui ne vous concernent pas. 
Avec votre micro-ordinateur, vous pouvez 
même intégrer les valeurs sélectionnées dans 
un tableur pour opérer immédiatement vos 
calculs. 


Vous pouvez : 

° interroger le service à partir du nom ou du 
code R.G.A. pour déterminer leur lieu de 
cotation, leur cours et l'historique de leur 
performance pendant les cinq dernières 
bourses, 

e Constituer des listes de valeurs, l'évaluation 
de celles-ci se faisant automatiquement. 


L'ACTUALITE FINANCIERE 

A LA SECONDE 

Premier informé, premier à agir : avec le 
service économique de l'A.F.P. (Agence 
France Presse), c'est toute l'actualité 
intéressant les investisseurs que vous pouvez 
consulter en temps réel. 


PASSEZ VOS ORDRES DIRECTEMENT 
A PARTIR DE VOTRE MICRO OU 
MINITEL 

Plus besoin de vous impatienter au téléphone 
ou d'attendre les confirmations de vos télex. 
En ouvrant un compte à la Charge Boscher, 
vous pouvez passer vos ordres -avec bien sûr 
accusé de réception- et par la suite recevoir. 


VOS AVIS D'OPERE LE JOUR MEME 
Ilest important de recevoir des informations 
financières rapidement -surtout lorsqu'il s'agit 
des vôtres. 


CONSEILS ET ECHANGES AVEC 
D'AUTRES INVESTISSEURS 

lieu de communication et d'informations, le 
réseau informatique CalvaCom est aussi un 
point de rencontre pour ceux qui font la 
bourse. Ainsi vous pouvez bénéficier des 
conseils des professionnels de la bourse. 













LA BOITE A 
COMMUNIQUER... 
MAINTENANT : 


La ‘‘Boîte à communiquer‘" est votre 
passeport pour l'univers CalvaCom. 
Avec lui vous allez découvrir un réseau 
de communication unique en France. 
Avec lui votre micro-ordinateur ou 
Minitel se transformera en puissant 
instrument de communication 
interactive. 

Cet ensemble vous donne droit à trois 
heures de navigation sur le réseau et 
contient votre code secret d'accès à 
tous les services (sauf l'envoi des Télex) 
que vous pouvez utiliser tout de suite. 


Ce kit contient : 

- 3 heures de connexion avec CalvaCom, 

- Un manuel de présentation des services et 
d'utilisation du réseau votre guide de route 

- Votre code secret d'accès à tous les 
services 

- La calculatrice CalvaCom 

- L'accord CalvaCom, bien sûr. 


N'hésitez pas et commandez dès 
aujourd'hui la boîte à communiquer au 
prix de 350 F ou 320 F si vous êtes 
membres du club ECHO 








X 


Bon à découper ou à photocopier et à retourner à 


LOGI'STICK CAPN LE BONAPARTE BOITE 49 
93153 LE BLANC MESNIL CEDEX 


{offre réservée à la France métropolitaine exclusivement) 


Veuillez me faire parvenir par retour de courrier la boîte 
à communiquer. 
Je suis : MME, MELLE, MR 


NOM : 
ADRESSE: 


PRENOM : 














MEMBRE DU CLUB ! ]OUI ! INON si OUI indiquez le 
numéro de votre carte: CE 
Ci-joint mon règlement* par 





] CCP ©} CHEQUE } MANDAT 


Signature obligatoire : 


J'ajoute 17 F pour frais de port et d'emballage 








PIERRE BRODIN - 49 ANGERS 


Chers Amis de l’ECHO, 


Ayant été conquis par le programme MONITEUR DE 
DISQUETTE de Vincent LEDOS, mais étant resté sur 
ma faim quant à l'intervention sur le drive B, je me 
suis permis d'apporter quelques petites modifications 
à ce programme afin de satisfaire ma curiosité. Je me 
permets de vous communiquer ces quelques petites 
modifications pour ceux de vos lecteurs qui seraient 
susceptibles d’être intéressés. 


1 - lancer BASIC 

2 - Charger MONITEUR de disquette par LOAD 
!'MONITEUR"‘ 

3 - Modifier les lignes : 530, 2120, 2150, 2580, 
2920, 2940. 


530 DATA CI,E1,23,10,F5,C9,0E,01,DD,21,80,E6,CD, 
5A,FC,92,00,C9,06,01,0E,01,16,01,1E,01 

2120 MS="'PISTE : ENTREZ UNE VALEUR HEXA 
COMPRISE ENTRE 00 ET 9F OÙ EXIT POUR 
ANNULER’’:GOSUB 2030 

2150 IF E=1 OR N> 159 THEN N=T9 

2580 

2920 A = VAL('&H'’+AS):B=VAL(&H+BS): 
N={(((A-1)*9+B)/4:PRINT ‘->';HEXS(N2); 
’h!:GOTO 2800 

2940 N=VAL('&H'’+A$): A1 = FIX((N*4/9): 
A=A1+1:B=((N+4)-(A1+9))+ 1:PRINT “>”; 
HEXS(A,2);';":HEXS(B);/(HEXA]'":GOTO 2800 


Ensuite, sauver le programme modifié sous un autre nom 
et le tour est joué. 


NOTA BENE : les parties imprimées en gras sont les 
parties modifiées. 


L'ECHO 


Félicitations pour ce truc que de nombreux lecteurs 
attendaient impatiemment et qui vous rapporte pas 
une, pas deux, mais cinq disquettes ! 


Jean LLATY - 87 LIMOGES 


J'ai été intéressé par le programme calendrier 
d'Olivier COQUIN (ECHO N° 13) qui a réussi la 
performance de faire tenir dans un écran les 12 mois 
de l’année. On ne pourrait pas y ajouter une virgule 
(mais pour quoi faire … l). Toutefois, j'ai deux 
observations à présenter : 

1) Le programme ne fonctionne pas si on introduit 00 
à 09 (pour 1900 à 1909). Si on entre 1, l'année 
1901 est bien affichée, mais le titre de bas d'écran 
indique ANNEE 1911 ; avec 2 c'est 1922, etc... Il 
suffit d'écrire la ligne 290 : IF AN>99 THEN 270 {en 
supprimant le début), pour que tout rentre dans 
l’ordre. 

2) Dans une douzaine d'années, le programme ne 
sera plus utilisable. Avouons qu'il n’est pas très 
perpétuel. (autant qu’il existe une gradation dans la 
perpétuité). Aussi, je joins une petite modification des 
lignes 270 à 380 qui permet d'obtenir les calendriers 
depuis 1583 jusqu'à … la prochaine réforme du 
calendrier, qui n'aura probablement pas lieu avant 
l'an 4000. {A ce moment-là, je vous indiquerai les 
corrections à apporter). Le programme devient ainsi 
un peu plus perpétuel sans être plus long (sauf ligne 
375 intercalée). 

Il faut, bien entendu, introduire l’année avec ses 
quatre chiffres. 














1200 Lee: AET 1,0" 07) 
1240 WF CCbe*C* VER UF L 

CMDIT "cn 
CRTC IL NO 
ORAN ER. (RACE, 3:73 
. L (] 






Cu: *:ROMDS, 2): METURS (CC) 
1270 1 0800 * TER DE DESTRCONJIS DES )e6 OR OUJ Ie 5 TRI 


L'ECHO 


Quel humour cher Monsieur LLATY et surtout quels 
inestimables tuyaux pour les PCWistes des généra- 
tions futures. Vous apprécierez donc les cinq disquet- 
tes que le comité central vous octroie à l’unanime amitié ! 


C.F. JULIUS - 75 PARIS 


Messieurs, 


Un grand merci à Vincent LEDOS pour son 
programme ‘’Catalogue de disquette’’, qui nous 
donne la méthode de loin la plus simple en BASIC 
pour rentrer tout le catalogue d’une disquette dans un 
tableau de chaînes de caractères et donc le rendre 
accessible à des traitements ultérieurs. J'abandonne, 
avec plaisir, mon bricolage plus complexe en cours, 
basé sur une lecture en code machine de la piste 
catalogue. Je lui pardonne même la coquille, dans la 
ligne 590, qui fait que le numéro correct de "USER" 
n'est pas affiché. La ligne corrigée : 


590 N$(X,N) = CHRS(48 + US) + ‘‘:‘’+ STRIPS(ZS) 


Pourtant, il aurait dû le voir avec les exemples 
encadrés 3 et 4 : chacun sait que les fichiers de la 
disquette LOCOSCRIPT sont répartis sur les groupes 
(‘user’) 0 à 3... Pas de fouet, cette fois-ci. 


Un petit tuyau pour les acharnés de code machine. La 
frappe de blocs de code machine dans un programme 
BASIC en HEXA est extrêmement irritante si les 
données sont séparées par des virgules. La virgule 
étant ‘’minuscule’’ et les chiffres ‘’majuscules’’, on 
n'arrête pas de jongler avec le (SHIFT). Le problème 
réside dans les routines de chargement habituellement 
employées du style : 

FOR adresse = début TO fin : READ h$ : 

h= val(''&H''+h$) : POKE adresse,h : NEXT 
DATA CD,FF,DE,09,56,13,00,FF 

DATA etc. 


(Ne parlons pas de DATA en décimal ou avec le 
*&H'' dans les DATA qui sont encore pires.) Si on 
remplace la routine de chargement par : 


adresse = début 
FOR ligne = 1 TO dernière ligne : 
nombre de lignes DATA 
READ h$ 
FOR i= 0 TO (LEN(h$)-2)/3 
h= VAL(''&H''+MIDS(h$,3*i+1,2)) : POKE 
adresse,h : adresse = adresse + 1 
NEXT i 
NEXT ligne 


DATA CD FF DE 09 56 13 00 FF 

DATA etc. 

on peut taper les DATA avec les espaces au lieu des 
virgules, sans perdre la lisibilité, et sans être obligé 
d’avoir recours à des lignes de longueur fixe. 


"dernière ligne = 


Je profite de l'occasion pour vous envoyer le bulletin 
de vote de l’'ECHO N° 14 et votre enquête de 
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l'ECHO N° 10 {un peu tard mais peut-être qu’il vous 
sert quand même). 


Comme sans doute beaucoup de vos lecteurs, je me 
suis bien amusé avec les exemples de traduction 
automatique dans la rubrique L'EVASION 
TELEMATIQUE, la preuve, s’il en fallait une, que la 
vraie traduction par ordinateur est encore assez loin 
dans le futur. Les exemples donnés surpassaient de 
loin les manuels japonnais ou taïwannais pourtant 
réputés pour leur coquilles magnifiques. On peut 
s'interroger sur le manque d’honnêteté d'un tel 
service, qui coûte quand même environ 1 F par 
minute, et, qui serait certainement utilisé par des 
personnes qui ne connaissent pas l'anglais ou 
l'allemand, et, qui croient obtenir une traduction 
correcte. Dommage d'avoir confié le test de ce 
‘fabuleux service‘’ à quelqu'un qui ne connaît ni 
l'anglais ni l'allemand... 


Mon opinion sur l'ECHO DU PCW 2 Jusqu'à 
maintenant, j'y trouve toujours quelque chose 
d'intéressant qui fait que je l’achète chaque mois. 
Mais, le niveau moyen est un peu décevant et n'atteint 
pas le niveau de certains confrères anglais. 

L'interview sur le programme ASTRO, par exemple, 
qui aurait pu être intéressant s’il avait traité les 
aspects informatiques d'un tel programme, n'était 
qu'un discours pseudo-scientifique qui n’a pas sa 


place dans l'ECHO. 


Continuez ! Vous avez déjà le mérite d’être le seul 
journal français voué entièrement au PCW. 
Personnellement, j'apprécie le mieux les tests sérieux 
de nouveaux produits et logiciels et les programmes 
concernant des aspects du PCW qui ne sont pas 
traités dans les manuels : graphisme, son, joystick, 
astuces disque, etc. 


PCWment vôtre. 


L'ECHO 


Merci pour les trucs dont bénéficie, une fois encore le 
programme de Vincent LEDOS et qui enrichissent 
subitement de cinq disquettes vierges. Pour ce qui 
concerne l'essai du service de traduction de la société 
GACHOT, l'auteur consulté pour la circonstance ne 
nie absoluement pas le fait que la traduction est 
encore loin d’être parfaite mais elle est un premier 
pas vers un outil d'avenir dont les progrès sont 
incessants. Le but de cette présentation était plus de 
montrer un des aspect de la télématique en laissant 
chacun juge de son intérêt. Ce commentaire est aussi 
valable pour votre avis sur l'interview d’Etienne 
MEZO et nous vous répondrons que l'informatique 
n'est pas simplement une affaire d’octets qui 
s’entrechoquent mais une aventure humaine qui 
dépasse ce que l’on peut imaginer. Mode de vie et de 
penser, facon de travailler, dialogue, culture, tout 
subit et continuera à subir d’incroyables transfor- 
mations et que nous voulons être résolument ouverts à 
une autre perception de ce merveilleux outil. 
L'informatique peut aussi donner sa chaleur et l'amitié 
que nous témoignent les PCWistes nous le prouve 
chaque jour. 


Daniel NOVIEL - 92 BOULOGNE 


J'ai lu avec beaucoup d'intérêt les remarques de 
Michel CANU à propos de l’informatisation des 
cabinets médicaux et je partage grandement ses 
analyses. J'ai tout à fait cru me reconnaître dans 
l'application de DBASE II pour la gestion des fiches 
de nos malades, ayant fait exactement la même 
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(de: 


démarche depuis septembre 1986 sur PCW 8512, 
date depuis laquelle mon application ‘’tourne‘’ sans 
défaillance, pour ma plus grande satisfaction. Certes, 
le coût de revient modéré de l’ensemble {nettement 
inférieur à 10 000 F, je confirme) est obtenu au prix 
de nombreuses heures de mise au point du 
programme, DBASE II étant un langage de 
programmation à part entière, d’un premier abord 
quelque peu complexe. Mais... une fois assimilé, que 
de possibilités. 


Je voudrais donc, à mon tour, faire part de mon 
expérience appliquée à la podologie et apporter, 
peut-être, quelques trucs perfectionnant encore, si 
possible, le principe du logiciel. 


La structure de chaque fiche patient est, à peu de 
chose près, semblable à celle décrite par notre ami 
Michel CANU. Les champs sont divisés en deux 
grandes catégories : des renseignements dits 
‘’d'identité’’, des renseignements strictement 
médicaux. Chacun l’adaptant à ses propres besoins. 
Toutefois, chaque fiche est grande dévoreuse d’octets 
(880 dans mon cas/dossier). 


Dès lors est posée l’inévitable question : combien de 
fiches pourrons-nous stocker sur une disquette du 
lecteur B ? Environ 700 à 800 seulement !... Quantité 
très nettement insuffisante, 3 000 à 5 000 fiches 
semble déjà mieux... et pourquoi pas plus ? 


Voici, une manière efficace de gérer un nombre 
(presque illimité) de dossiers, comme on le ferait sur 
un disque dur (sans la rapidité, toutefois, mais sans 
son prix également). 


Tous les fichiers de commande seront en lecteur A. 


Les fichiers de données seront en lecteur B, sur, par 
exemple, 4 disquettes différentes. La disquette N°1 
contiendra les patients dont le nom commence par la 
lettre À, B ou C. Disquette n°2, de D à G, disquette 
N°3 de H à M, disquette n°4 de N à Z. Cette 
répartition n’est pas due au hasard, dans la mesure 
où certaines lettres de début de noms sont beaucoup 
plus fréquentes que d’autres, permettant d’avoir des 
disquettes à peu près équilibrées. Rien n'empêche, 
bien sûr, une autre distribution sur 6 ou 8 disquettes, 
si vous prévoyez de nombreux patients dans votre 
cabinet !... 


Mais comme la solution d’un problème en amène 
automatiquement d’autres, il faut maintemant 
résoudre : 


1) la remise à zéro du pointeur d'enregistrement 
avant de changer de disquette, sinon l’inéluctable 
message ‘’fin de fichier inattendue’ imposera un 
‘lavage de cerveau’’ obligatoire du PCW en le 
privant des électrons distribués par EDF. 


2) Vérifier, après la saisie du nom du patient, que ce 
soit en création ou en recherche de dossier, que l’on a 
bien, en drive B, la bonne disquette alphabétique. 
sinon même remède qu'en 1. Pire, si le dossier de M. 
DUPONT Henri est stocké sur la disquette de N à Z, 


il restera introuvable lors d’une prochaine visite. 


REMISE À ZERO DU POINTEUR 
On utilise la possibilité qu'offre DBASE Il, par la 


commande ‘’quit’’, d'appeler, pour enchaînement 
automatique, un autre programme ; en l'occurence, on 
lui demandera de se rappeler lui-même. Ainsi, dans le 
menu, suffit-il de prévoir une option CHANGEMENT 
DE DISQUETTE qui provoquera l'opération suivante : 
QUIT TO ‘'dbase menu’. 
Le programme et le pointeur repartent ainsi à zéro. 
Cette opération prend, bien sûr, quelques secondes, 





(deNLEUL: 


mais on la déclenche en fin de consultation pendant 
que l’on termine quelques bavardages de 
circonstance. || est utile, également, d'afficher quelque 
part dans le menu le numéro de pointeur (fonction #) 
afin de savoir si la réinitialisation a été faite ou non. 
On introduit une nouvelle disquette en B et DBASE Il 
est totalement trompé. 


VERIFICATION DE DISQUETTE 


Sur chaque disquette B, on place un court fichier de 
commande, appelé TEST, utilisant la fonction ‘’RANK 
(nom)'" qui renvoie la valeur numérique 
correspondant au premier caractère du nom 
(équivalent de la fonction ASC en BASIC). Voici ce 
fichier pour une disquette ne devant recevoir que les 
noms commencant par À, B ou C: 


On supposera que le nom du patient est stocké dans 
la variable choix. Celle-ci sera transposée en 
majuscules par l'instruction 

STORE ! (choix) TO choix 

* Fichier TEST.CMD 

IF RANK (choix)>= 65. AND. RANK (choix) <= 67 
RETURN 

ENDIF, 

ERASE 

? ‘'Mauvaise disquette alphabétique - Changez - 
Tapez une touche‘' 

WAIT 

RETURN 


On l'aura compris, les chiffres 65, 66, 67 
correspondent au code ASCII en valeur décimale des 
lettres À, B, C. Ainsi, on adaptera ces valeurs en 
fonction des lettres choisies pour le début du nom. 


Ce fichier TEST sera appelé par l'instruction DO TEST, 
placée notamment au début des fichiers permettant 
soit la création soit la recherche d’un dossier. || sera 
ainsi impossible de créer une fiche avec sa mauvaise 
destination alphabétique. 


Outre cette gestion de dossier, le programme se 
charge également de l’édition de nombreux 
documents répétitifs reprenant, si nécessaire, les 
renseignements écrits dans le dossier du patient, tel 
que l'édition d’un compte rendu d'examen à 
destination de votre correspondant. Voilà bien pour 
se convaincre des possibilités du PCW 8512 avec 
DBASE II. Si vous pensez qu'une telle application est 


COMMENT SAISIR UN PROGRAMME 


EN BASIC MALLARD 


La façon de saisir un programme Basic a fait l’objet d'une 
étude approfondie dans l'Echo du PCW N°1 in ‘’Un départ 
saisissant” qui reste complémentaire au livre 2 livré avec les 
PCW. 

Résumé : 

Allumez l'ordinateur et insérez la face 2 de la disquette 
système. À l'affichage de ‘’A>"' tapez BASIC suivi d’une 
pression sur [RETURN]. Une fois sous basic, lancez la 
numérotation automatique par AUTO + [RETURN]. 

À chaque numéro de ligne affiché, tapez son contenu 
conformément au listing de l'article. 

Pour sortir du mode AUTO afin de corriger une ou plusieurs 
lignes, tapez [STOP]. 

Pour corriger une ligne, tapez EDIT suivi de son numéro et 
d'une pression sur [RETURN]. 

Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, tapez LIST [RETURN]. 





susceptible d'intéresser les lecteurs, j'en assurerai, très 
volontiers, la publication intégrale. 


L'ECHO 


Brillant épisode de la vie secrète du PCW chez le 
médecin dont la suite est laissée à l'appréciation des 
lecteurs intéressés qui ne doivent pas hésiter à nous 
faire savoir si votre proposition d’une version 
intégrale les séduit. Toujours est-il que vous avez déjà 
cinq disquettes vierges au crédit de votre compte et 
qu'elles seront parfaites pour y stocker vos nouveaux 
patients. 





F. ALDEBERT 
92 NEUILLY-SUR-SEINE 


Avec l'achat du N°15 (que je n'ai trouvé que le 10 
janvier dernier dans ma Librairie), je m'aperçois que 
cette revue me devient indispensable pour mieux 
utiliser mon PCW 8256. Aussi, comme vous pouvez le 
constater sur ma commande jointe, et possédant déjà 
les numéros 1, 2, 13, 14, je complète ma 
bibliothèque. Pour l'instant, devant les frais que cela 


représente, je ne puis m'abonner, mais cela viendra. 


En attendant, je vous adresse toutes mes félicitations 
pour votre mensuel. Car je dois vous avouer qu'ayant 
acheté mon PCW depuis deux ans, j’ai acquis et testé 
plusieurs revues que j'ai, sans regret, jetées ce matin 
car je n’y avais pas trouvé beaucoup d'intérêt : il n’y 
a que l’'ECHO qui m'aille!!1 


Il faut aussi que je vous précise que je suis gardien 
d'immeuble et utilisant mon PCW pour la 
correspondance et les fichiers où toute la résidence est 
rangée. Cela a suscité bien des envies et des jalousies 
au début, mais j’ai appris que je ne suis plus le seul 
gardien dans ce cas. Maintenant, les co-propriétaires 
et le syndic apprécient beaucoup la mémoire que le 
PCW me permet d’avoir dans l'exercice de mon 
métier (grâce à DBASE Il). 


L'ECHO 


Le PCW est partout et vous nous en donnez une 
éclatante preuve. Nous vous suggérons de créer 
l’amicale des gardiens PCWistes et de traiter les 
jaloux avec dédain. Ne sommes-nous pas au dessus 
de tout cela ? 


Exemple : LIST 10 [RETURN] ov LIST -100 [RETURN] ou 
LIST 10-100 [RETURN] ov LIST [RETURN] 


Faites des sauvegardes régulières du programme, même en 
cours de saisie, en mettant une disquette vierge en À et en 
tapant : SAVE ‘’Nom du programme’ [RETURN]. 
Exemple : SAVE ‘’ECHO'' [RETURN]. 


Conseils : Ne lancez jamais un programme avant d’en 
avoir fait une sauvegarde. + Utilisez les mêmes noms que 
ceux conseillés par l'auteur (dans son article ou sur la 
disquette qui l'accompagne). + Vérifiez ligne par ligne que 
ce que vous avez tapé est strictement identique à ce 
qu'indique le listing. Soyez particulièrement vigilant dans les 
cas suivants : + Ne confondez pas : point virgule et deux 
points, point et virgule, i majuscule et | minuscule ou le chiffre 
1. « Respectez : les espaces, les guillemets, les REM et les 
numéros de lignes. + Ne modifiez pas un programme avant 
d'être certain qu’il fonctionne totalement. + Les erreurs se 
produisent rarement dans la ligne responsable de celles-ci. 
Seule SYNTAX ERROR ov erreur de syntaxe dans la saisie, 
arrive dans une ligne mal écrite. c'est pour cette raison que 
le basic Mallard l’édite automatiquement. 

Dans tous les cas, reportez-vous à l'annexe II du manuel 
Amstrad. 


COURRIER + L'ECHO DU PCW N°16 








1919949949 


1199944949 








1111919944144919 

TANT TTCTTYTCUTUTUNS 
UN 440044000111 007 
_ 5, à à ERLRRRLRRARARLELERLE 





111114114141 499499 
1111119119919199191191119111411999 
111111141141 449441494499 
T1 4444 
RRRRRRRERRRRRRRRRRRRRRRRRRRRERRERREE) 
RRRRRRRERRRRRRRRRRRRRRRRRRRERRERRERERE)] 


RARE RRRRRRRRRRRRERRRRERRE] 


114144411114 497%149 
111119141111 499 













































11411114141419499 
VUTLTTSUS COINS RE 


CLRLELRERLELRRLRRRREERRERESLE 








TITI 4499999 


1111919190419111199999444 





11111149999991949 





med 


‘Conqauise 


V € C OZ 


PARTAGER NOTRE SOIF DE QUALITÉ 
EN DÉCOUVRANT NOTRE CATALOGUE 
DE MATERIELS. ET DE LOGICIELS 





PCW : 856/8512/0512 
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